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ABSTRACT 


The  computer  program  presented  and  discussed  in  Part  1  of 
this  report  for  analyzing  the  axisymmetric  base-pressure  and 
base-temperature  problem  with  interacting  supersonic  free-stream 
and  propulsive-nozzle  flows  has  been  improved  and  generalized  to 
include  the  analysis  of  an  afterbody  upstream  of  the  base  region 
The  afterbody  geometries  considered  are:  cylindrical,  conical, 
parabolic,  and  tangent-ogive  boattails  and  conical  flares.  The 
F0RTRAN  IV  computer-program  listing,  as  well  as  detailed  infor¬ 
mation  on  program  development,  organization,  and  usage,  are  in¬ 
cluded  herein.  Theoi'etioal  afterbody  and  base-pressure  results 
are  presented  for  parametric  variations  in  afterbody  geometry 
and  flow  variables.  In  addition,  a  limited  comparison  between 
theoretical  and  experimental  conical- afterbody  and  base-pressure 
data  is  made. 


TABLE  OF  CONTENTS 


Page 
•  iv 


1  Li 

md 


stream 
zed  to 


region . 


The 

i. 

ifor- 

•  in- 

ii. 

■ults 

:*y 

■eon 

ssure 


III. 


LIST  OF  FIGURES 


LIST  OF  TABLES . vi 

NOMENCLATURE . vii 

INTRODUCTION  .  1 

THEORETICAL  FLOW  MODEL . 2 

A.  "CORRESPONDING"  INVISCID  FLOW  FIELDS  .  2 

B.  TURBULENT-MIXING  COMPONENT  .  5 

C.  TURBULENT  BOUNDARY -LAYER  SEPARATION  CRITERION  •  •  •  •  6 

COMPUTER  PROGRAM  .  8 

A.  PROGRAM  INPUT  .  8 

B.  PROGRAM  OUTPUT  .  9 

C.  PROGRAM  ERROR  MESSAGES  .  9 


IV.  REPRESENTATIVE  THEORETICAL  AFTERBODY  AND  BASE-FLOW 

SOLUTION  RESULTS . * . 11 

A.  PARAMETRIC  VARIATIONS  IN  SELECTED  GEOMETRIC  AND 

FLOW  VARIABLES . 11 

B.  LIMITED  COMPARISON  WITH  EXPERIMENT  . 12 


t 


V.  CONCLUSIONS . 14 

REFERENCES  . . 

FIGURES  AND  TABLES  . IV 

APPENDIX  A.  TWO-STREAM  AXISYMMETRIC  BASE-PRESSURE 

PROGRAM  (TSABPP-2 ) . 59 

APPENDIX  B.  TSABPP-2  PROGRAM  ORGANIZATION  AND  SUB¬ 
ROUTINE  DESCRIPTION . 113 

APPENDIX  C.  TSABPP-2  ERROR  MESSAGES . .  •  •  117 

APPENDIX  D.  MODIFICATIONS  FOR  OPERATION  OF  TSABPP-2 

ON  AN  IBM  7094  F0RTRAN  IV  I BJ0B  SYSTEM  ♦  •  123 

APPENDIX  E.  MODIFICATION  OF  TSABPP-2  TO  SIMPLIFY 

INPUT  FOR  PARAMETRIC  STUDIES  .......  127 


i 


LIST  OF  FIGURES 


rage 

Figure  1  Two-stream  axi symmetric,  base-flow  configuration 

with  an  afterbody . . . 27 

Figure  2  Inviscid  afterbody-flowfield  analysis 

(a)  Flowfie'ld  subdivision  and  unit  processes . 18 

(b)  Afterbody  boundary-point  calculation  .  29 

(c)  Iterative  procedure  for  determining  the 
I -characteristic  through  the  afterbody 

terminus . 2C 

(d)  Final  afterbody  I I-characteristic  for  input 

to  the  external -flowfi eld  subroutine  ACPBS  •  •  •  •  21 

Figure  3  Afterbody  and  constant-pressure  boundary  sub¬ 
programs 

(a)  Afterbody  notation  for  subprogram  ABTS  .  22 

(b)  Constant-pressure  boundary  notation  for 

subprogram  ACPBS . * . 23 

Figure  4  (a)  Flowchart  of  main  program  TSABPP-2 . 24 

(bj  Flowchart  of  subroutine  IN0UT  .  26 

Figure  5  Conical -boattai 1  configurations 

(a)  Inviscid  conical-boattail  drag  coefficients  •  •  •  •  35 

(b)  Conical-boattail  pressure  distributions  .  38 

(c)  Base-pressure  ratio  variations  for  several 

conical-boattail  angles  .  -  .  3? 

(d)  Base  drag  coefficients  for  several  conical- 

boattail  angles  •  .  ••••*•  38 

(e)  Variations  in  the  combined  boattai 1  base  drag 
coefficient  for  several  conical-boattail  angles  •  •  39 

(f)  Variations  in  the  combined  conical  boattail- 

base  drag  coefficient  for  several  pressure  ratios  •  40 

(g)  Variations  in  the  combined  conical  boattai 1- 
base  drag  coefficient  for  several  base-bleed 

ratios  at  fixed  operating  pressure  ratios  •  *  •  •  •  41 

Figure  6  Tangent-ogive  boattai 1  configurations 

(a)  Inviscid  drag  coefficients  for  tangent-ogive 

boattai  Is  (£2E  =0°) . 42 

(b)  Tangent-ogive  boattai 1  pressure  distributions  •  •  •  43 

(c)  Base-pressure  ratio  variations  for  several 

tangent-ogive  boattai Is  .  »  .  44 

(d)  Base  drag'coefficients  for  several  tangent- 

ogive  boattai Is  . 45 

(e)  Variations  in  the  combined  boattail-base 

drag  coefficient  for  several  tangent-ogive 
boattails . 46 


Page 


Figure  6  (f)  Variations  in  the  combined  tangent-ogive  boat- 

tail  -base  drag  coefficients  for  several  pressure 


rati  os . *  47 

Figure  7  Conical-flare  configurations 

(a)  Inviscid  conical-flare  drag  coefficients 

(approximate  analysis)  . . 48 

(b)  Conical-flare  pressure  distributions 

(approximate  analysis)  . 49 

(c)  Base-pressure  ratio  variations  for  several 

coni  cal -fl are  angles . so 

(d)  Base  drag  coefficients  for  several  conical- 

flare  angles  ••••*•  .  si 

(e)  Variation  of  the  combined  conical  flare-base 
drag  coefficient  for  several  conical -flare 

angles  * . 52 


(f)  Variations  in  the  combined  conical  flare-base 

drag  coefficient  for  several  pressure  ratios  •  •  53 

Figure  8  Coni  cal -afterbody  configurations 

(a)  Theoretical  combined  afterbody-base  drag  co¬ 
efficient  variation  for  conical  afterbodies  as 

a  function  of  base-to-body  area  ratio  .  54 

(b)  Theoretical  cyl indri cal -tc-coni cal  afterbody 
base-pressure  ratio  as  a  function  of  the  base- 


to-body  area  ratio  and  a  comparison  with  an 
empirical  correlation  •  •  •  * . 55 

Figure  9  Comparison  with  the  experiments  of  Baughman  and 
Kochendorfer  [6] 

(a)  Conical-boattail  pressure  coefficient  .  b6 

(b)  Base  pressure  coefficient  versus  stagnation- 
to-freestream  pressure  ratio  for  several  coni¬ 
cal-boattail  configurations  (FL  =  1.91, 

S2E  =  -5.63°,  Mjj  =1.0)  •  •  . . 57 

(c)  Base  pressure  coefficient  versus  stagnation- 
to-freestream  pressure  ratio  for  several  coni¬ 
cal-boattail  configurations  (M  =  1.91, 

B2E  =  -5.63°,  Mu  =  2.60)-  •  . . 58 


v 


LIST  OF  TABLES 


Page 

Table  1  Input-variable  definitions  for  program  tsabpp-2  •  •  •  26 


Table  2  TSABPP-2  input  option  1  (iN0PT=i)  by 
NAMELIST /DATA/ : 

"SDATA  A= 1 • *  * ' ,  R1I=,  etc.  SEND”, . 29 

Table  3  TSABPP-2  input  option  2  (lN0PTc2)  by  a  complete 

set  of  data  cards . . . 29 


Table  4  TSABPP-2  input  option  3  (IN0PT-3)  for  calculation 
of  internal-flow  constant-pressure  boundaries  only. 

Input  by  NAMELIST/DATA/: 

"&DATA  IN0PT=3,  Ap'***',  etc.  SEND".  .  30 

Table  5  TSABPP-2  input  option  4  (iN0PT=4)  for  calculation 
of  external  flow  only:  Afterbody  and/or  constant- 


pressure  boundaries.  Input  by  NAMEL I  ST / DAT A/ : 

"SDATA  IN0PT=4,  A-- ' • • • * ,  etc.  SEND".  .  *  •  31 

Table  6  Printed  output  data  and  options  for  the  TSABPP-2 

program . . . 32 

Table  7  Punched  output  data  for  the  TSABPP-2  program 

(NPUNCH=l) . .  ♦  . . . 

Table  8  Summary  of  the  configuration  data  for  the  para¬ 
metric  study  of  the  afterbody  influence  on  base- 
pressure  ratio,  base  drag,  and  overall  drag . 34 


NQMENCLATURE+ 


SYMBOLS 


Text 


Computer 

Program 


Definition 


ai  »32  ’a3 


C0EFF1,  Coefficients  in  the  mass  and  energy 
C0EFF2,  transfer  rate  equations  due  to  mix- 
C0EFF3  ing 


A 

A  ,B  ,C 


C1  ,C2  ,C3 


Area 

A_,Ei^C  Coefficients  in  the  second-degree 

afterbody  equation 

C1,C2,C3  Coefficients  in  the  afterbody  pro¬ 

file  eauation 


C 

C 


Local  speed  of  sound 

CSQD — ++  Crocco  number  squared,  (U/U  )2 

max 

CNR —  Ratio- of  Crocco  numbers,  CJ/C 

a  a 

Specific  heat  at  constant  pressure 
CPB,CP.,CPBT  Pressure  coefficient, 

Yg  2 

2  He 

CDB.jCD^CDBT  Drag  coefficient, 

CD  =  -Cp[1  "  (RU/R2E)2] 

CT  .  Ideal  propulsive-nozzle  thrust  co¬ 

efficient  , 

.2  /  . 2  - 


T 

Diameter 


i  — 
2 


_1L  (1  +  yt  M.2  )  -  1 

L*  E 


Energy  transfer  rate  per  unit  width 
for  the  2-D  turbulent  mixing  region 


NOMENCLATURE  from  Part  has  been  included  herein  for 


com- 


■■  :irJ:c.ite  that  additional  alphanumeric  symbols  may  be  added 
-  •  r.t  „ :  i  cat  ion ,  e.g.,  corresponding  to  subscript  notation. 


vii 


Text 


Computer 

Program 


Definition 


r()  ,f(), 

etc. 


Approximate  energy  transfer  rate 
due  to  mixing  along  the  axisym- 
metric  boundary 

Energy  transfer  rate  into  the 
base  region 

Reference  energy  transfer  rate 
based  on  an  ideal  propulsive  nozzle 

Functional  notation 


32.174  [lb  -ft/lb  -sec.  ] 

m  * 

Mass  entrainment  rate  per  unit  width 
for  the  2-D  turbulent  mixing  region 

Approximate  mass  flow  rate  due  to. 
entrainment  by  the  axi symmetric  mix¬ 
ing  region 

The  "bleed"  mass  flow  rate  into  the 
base  region 

Reference  mass  flow  rate  for  an 
ideal  propulsive  nozzle 


; 

j-  i  (n  >c*  ) 
:5(r.,Vc’) 

EU - \ 

El  3 - J 

Mixing  integrals  ! 

i 

U10PT 

Input -option  variable 

i 

i 

M 

EMN - 

Mach  number,  V/c 

i 

i 

tc 

EMS - 

Mach  star,  V/c  ) 

l 

i 

i 

NPUNCH 

Output-option  variable 

i 

i  • 

nshape 

Afterbody  shape  specification  variable 

1 

P 

p - 

Absolute  pressure 

* 

i 

r 

REC0MP 

Recompression  coeffic'ent,  Eq.  ^2)  j 

i  ■ 

R 

R - 

Radius 

! 

1 

i  K 

GC 

Gas  constant,  [ibf  -ft/11^  -°PJ 

i 

Text. 


Computer 

Program 


Definition 


tor 


T 

U 

v 

V 

*,y 


X  ,K 

3 


y 


E  ,E1  *^2 


n 


n 


m 


6 


RMF 

TJML- 


T 


X— ,R— 


BETA--, 
BETD--  , 
ANG - 

GAMMA- 


ETA — 

ETAM 


THU—, 

THETA- 


Hozzle-to-freestream  momentum 
flux  ratio 

Mixing  length  along  the  "corres¬ 
ponding"  inviscid  axisynimetric 
boundaries 

Absolute  temperature 

x-component  of  the  velocity 

v-component  of  the  velocity 

Magnitude  of  the  velocity 

Intrinsic  coordinates  in  the  2-D 
mixing  region 

Longitudinal  and  radial  co¬ 
ordinates  for  axisynimetric  flow 

Geometric  flow  angle 


Ratio  of  the  specific  heats 

Small  positive  quantities 

Dimensionless  coordinate  in  the 
mixing  region,  (oy/x) 

Dimensionless  shift  of  the  2-D 
mixing  profile 

Flow  angle 


o 


S IGMA- 


Lmpirical  mixing  parameter 


P 


Density 


A 


TR-0 — 


Stagnation  temperature  ratio 


<J> 


PHI  — 


Velocity  ratio 


.1  x 


II.  SUBSCRIPTS 


Computer 

Program  Definition 

Adjacent  inviscid  flow;  limiting 
iocation  on  the  "positive"  side  of 
the  mixing  region 

Adjacent  quiescent  region;  limiting 
location  on  the  "negative"  side  of 
the  mixing  region 


B 

- B- 

Base  region 

BE 

-—BE- 

Boundary,  external 

BI 

- BI- 

Boundary,  internal 

BS 

Base-pressure  and  base- temperature 
solution 

STi , BT2 

- BT1, 

8T2  Initial  and  terminal  points  on  the 
boattail,  respectively 

A 

- D- 

Discriminating  streamline 

E 

— E — 

External  (free-stream)  flow 

r 

flare 

I 

Internal  (nozzle)  flow 

i  mp 

- IMP 

At  impingement  point  of  the  "corre¬ 
sponding"  inviscid  streams 

j 

- J- 

Jet-boundary  streamline 

LMT 

- LMT 

Limiting  value 

MAX 

- - MX,- 

—MAX  Maximum  value 

MI  N 

- MIN 

Minimum  value 

o 

— JJ- 

Stagnation  conditions 

oa 

Stagnation  conditions  for  the  adja¬ 
cent  inviscid  flow 

oE 

- 0E- 

Stagnation  conditions  for1  the  ex- 

ter  rial  flow 


x 


T  ext 


ol 


S 


SEP 


II  ,  1  E 


2E 


Computer 

Program 


-  —  01- 


S 


- SUP 


-—11, 

- IE 


- 2E 


Definition 


Stagnation  conditions  for  the  in¬ 
ternal  flow 

Slipline;  after’  oblique  shock 
system 


Boundary- .layer  separat  ion 

Internal  or  external  stream's 
geometric  separation  point  located 
at  the  terminus  of  the  nozzle  or 
afterbody ,  respectively 

Initial  point  on  the  afterbody 


XJ. 


Ill,  BARRED  SYMBOLS  (Dimensionless  Ratios) 


Text 

Computer 

Program 

Definition 

B,E 

BLDR,ENGR 

Dimensionless  mass  and  energy 
transfer  rates  due  to  mixing 

B  ,E 

BLDR0, 

ENGR0 

Dimensionless  mass  and  energy  trans¬ 
fer  rates  to  the  base  region 

AB,AE 

VAR 

Dimensionless  mass  and  energy  dif¬ 
ference  function 

P 

PR - E 

Pressure  ratio,  P/P 

£ 

P 

B 

PRBE 

Base-pressure  ratio,  P  /P 

P- 
‘  11 

PR  X I E 

Nozzle  exit-plane  static  pressure 
ratio,  Pn  /P£ 

PR01E 

Internal  stagnation-to-externa.l 
static  pressure  ratio,  P  .  /P_ 

(GCI/GCE) 

Ratio  cf  gas  constants, 

TRB01 

Base-temperature  ratio,  Tb/ToI 

“oE 

TR0EI 

Extei’nal-to-internal  stream 
stagnation  temperature  ratio, 

*1.  ’*11 

XII, R1I 

Dimensionless  coordinates  of  the 
internal  stream's  geometric  sepa¬ 
ration  point;  Xu  /R2E  ,  Ru  /R2E 

*1E’*1E 

X1E,R1E 

Dimensionless  coordinates  of  the 
external  stream's  geometric  sepa¬ 
ration  point;  X1£/R2e,  R1£/R2e 

X2E 

Dimensionless  coordinate  of  the 
initial  point  on  the  afterbody; 

I. 


INTRODUCTION 


As  part  of  the  continuing  development  of  methods  and  com¬ 
puter  programs  for  aerodynamic  design,  evaluation,  and  optimi¬ 
zation  studies  related  to  the  base-flow  problem,  the  computer 
program  developed  and  reported  earlier  in  Part  I  of  this  report 
series  [ 1 ] t  has  been  generalized  to  include  an  afterbody  analy¬ 
sis  in  conjunction  with  the  base-flow  analysis.  The  base-flow 
analysis  is  based  on  the  component  flow  model  of  Korst »  et  al. 
[2],  as  modified  by  an  empirical  recompression  coefficient. 

For  cylindrical  afterbodies,  this  empirical  coefficient  was  de¬ 
termined  by  a  detailed  correlation  of  theoretical  and  experi¬ 
mental  data  and  has  been  reported  in  Part  1 1  of  this  report 
series  [3].  Herein,  the  "corresponding”  inviscid  flow-field 
component  of  the.  base-flow  analysis  includes  the  option  of  an 
afterbody  upstream  of  the  base  region.  The  afterbody  and  flow- 
field  analyses  are  by  the  Method  of  Charaateristios ;  the  after¬ 
body  geometries  considered  are:  cylindrical,  conical,  parabolic, 
or  tangent-ogive  boattails  and  conical  flares  of  moderate  angle 
and  length. 

Under  certain  flow  conditions,  oblique  shock  waves  can  oc¬ 
cur  at  the  terminus  of  the  afterbody  and/or  the  propulsive  noz¬ 
zle;  these  oblique  shock  waves,  if  they  occur,  are  treated  ap¬ 
proximately  in  the  inviscid  flow-field  analyses.  For  these 
flow  conditions ,  it  is  necessary  to  establish  an  upper  limit  on 
the  trial  values  of  the  base-pressure  ratio  in  the  solution 
iteration  sequence;  this  upper  limit  is  established  by  the  on¬ 
set  of  boundary -layer  separation  at  the  afterbody  and/or  pro¬ 
pulsive-nozzle  terminus  points.  The  boundary -layer  separation 
criterion  used  herein  is  based  on  an  approximate  empirical 
formulation  developed  by  Zukoski  [4]. 

A  parametric  study  of  the  base-flow  problem  for  a  repre¬ 
sent  tive  set  of  flow  conditions  and  afterbody  geometries  has 
bee.,  made;  the  results  of  this  study  are  presented  herein. 

These  data  are  complementary  to  the  parametric  study  previously 
conducted  [l]  for  a  cylindrical  afterbody.  In  addition,  a 
limited  comparison  is  made  between  theoretically  predicted 
values  and  an  experimentally  based  correlation  of  Brazzel  and 
Henderson  [5]  and  the  experimental  data  of  Baughman  and  Kochen- 
dt-i  fer  [6]. 


s.er-s  in  brackets  refer  to  entries  in  REFERENCES. 


II.  THEORETICAL  FLOW  MODEL 


The  flow  model  of  Korst,  et  al .  [2],  and  the  component  as¬ 
pects  of  this  flow  model  have  been  discussed  in  Part  I  of  this 
report  series  [1]  and  also  in  considerai  :  detail  in  [7];  the 
discussion  and  analyses  presented  therein  continue  to  be  applic¬ 
able.  In  particular,  the  turbulent -mixing  component,  the  solu¬ 
tion  criteria,  and  the  solution-seeking  techniques  have  not  been 
modified.  The  principal  modifications  made  herein  have  been  in 
the  recompression  and  the  "corresponding"  inviscid  flow-field 
components . 

The  "corresponding"  inviscid  flow-field  analyses  have  been 
generalized  to  include  an  afterbody  upstream  of  the  base  region 
and  an  approximate  analysis  of  oblique  shock  waves  which  can  oc¬ 
cur  under  certain  flow  conditions.  Under  these  flow  conditions, 
the  trial  values  of  the  base-pressure  ratio  are  limited  by  an  up¬ 
per  bound  which  is  determined  approximately  for  the  onset  of 
boundary -layer  separation  for  either  the  free-stream  or  propul¬ 
sive-nozzle  flow  as  the  case  may  be. 

The  recompression  criterion  which  is  instrumental  in  deter¬ 
mining  the  base-pressure  solution  by  linking  the  mixing  and 
"corresponding"  inviscid  flow-field  components  has  been  modified 
by  an  empirical  recompression  coefficient.  For  cylindrical  after¬ 
bodies,  the  recompression  coefficient  has  been  determined  by  a 
detailed  correlation  of  theoretical-experimental  data  [3].  At 
present,  a  correlation  study  for  boattailed  and  flared  afterbodies 
similar  to  [3]  is  in  progress  and  not  yet  complete. 

The  Two-Stream  Axisymmetric  Base-Pressure  Program,  TSABPP--2, 
presented  herein  is  based  on  the  following  analyses  in  conjunction 
with  Parts  I  and  II  [1,3],  of  this  report  series  and  [7],  The 
configuration  and  associated  notation  for  TSABPP-2  are  given  in 
Fig.  1;  an  attempt  has  been  made  to  retain  a  notation  herein  whi  h 
is  consistent  with  that  of  [1,3,7]. 

It  should  be  noted  that  the  uniform-flow  free-stream  con¬ 
ditions  (E)  arc  used  as  reference  conditions  throughout  the  analy¬ 
ses  and  the  computer  program. 

A.  " CORRESPONDING"  INVISCID  FLOW  FIELDS 

The  supersonic  flow  fields  are  determined  by  the  Method  of 
Characteristics  for  irrotational  axisymmetric  flow.  The  external 
(free-stream)  flow  is  assumed  to  be  initially  a  uniform  supersonic 
stream;  downstream  of  this  uniform  external  flow  station,  the  flow 


can  either  immediately  separate,  as  for  a  cylindrical  afterbody, 
or  continue  over  a  prescribed  afterbody  before  separating  at  the 
base.  As  before,  the  internal  (propulsive-nozzle)  flow  is  as¬ 
sumed  to  be  from  an  ideal  full-  flowing  supersonic  conical-flow 
or  uniform- flow  nozzle.  After  the  separation  of  the  internal 
and  external  flows,  the  flow  fields  are  calculated  for  a  constant- 
pressure  boundary  condition  and  a  trial  value  of  the  base-to-free- 
streain  pressure  ratio.  At  the  impingement  point  of  the  inviscid 
streams,  if  it  exists,  the  oblique-shock  recompression  system  is 
determined. 

The  inviscid  flow-field  analyses  have  been  subdivided  for 
convenience  of  computer  program  development  into  two  subprograms, 
ABTS  and  ACPBS.  Subprogram  ABTS+  is  used  for  the  calculations  of 
the  flow  field  over  the  afterbody  while  subprogram  ACPBSt  is  for 
calculation  of  the  constant-pressure  boundary  flow  fields.  The 
free-stream  flow  conditions,  the  afterbody  flow-field  calculations, 
and  the  constant-pressure  boundary  flow-field  calculations  are 
linked,  respectively,  along  characteristic  curves  which  are  speci¬ 
fied  or  determined  through  points  (2E)  and  (IE)  of  Fig.  1;  the 
propulsive -nozzle  flow  conditions  are  linked  with  the  constant - 
pressure  boundary  flow-field  calculations  along  a  characteristic 
curve  specified  or  determined  through  point  (11)  of  Fig.  1. 

The  general  case  of  a  uniform  external  (free-stream)  flow 
upstream  of  an  afterbody  is  shown  in  Fig'.  2(a).  The  afterbody 
flow-field  calculations  are  made  from  the  known  uniform-flow 
characteristic  through  the  initial  point,  (2E),  on  the  afterbody. 
The  flow-field  calculations  proceed  from  these  known  data  on  xhe 
II-characteristic  along  I-characteristics  to  the  boundary  points 
on  the  afterbody  surface  where  the  boundary  condition  of  flow  tan- 
gency  is  satisfied;  these  calculations  are  illustrated  in  Figs. 

2(a)  and  2(b).  The  afterbody  geometries  considered  are:  the  ogive, 
parabola,  and  cone;  the  expressions  used  to  define  these  afterbody 
meridional  profiles  are  given  in  Fig.  2(b). 

The  foregoing  calculation  sequence  is  continued  by  advancing 
along  the  known  II-characxeristic  until  an  I-characteristic  is  en¬ 
countered  which  would  intersect  the  afterbody  surface  after  the 
terminus  of  the  afterbody,  as  shown  in  Figs.  2(a)  and  2(c).  An 
iteration  sequence  is  then  initialized  to  find  the  I-characteristic 


r  program  flexibility,  the  inviscid  afterbody  and  constant - 
; ; ensure  boundary  subprograms  only  are  available  as  input  options. 

•  e  APPENDIX  B  for  additional  comments  on  the  function  and  organi- 
•  ition  of  these  subprograms. 
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which  passes  through  the  terminus  of  the  afterbody.  The  iteration 
sequence  is  initialized,  as  shown  in  Fig.  2(c),  by  the  (i-l)-th 
I-characteristic  which  intersects  with  the  afterbody  and  the  next 
I-characteristic ,  i(  11  ,  which  docs  not  intersect  the  afterbody 
surface.  The  (i-1)  and  i(  1 ^  points  on  the  known  I I-characteristic 
provide  initial  bounds  on  the  origin  of  the  I-characteristic  which 
would  pass  through  the  terminus  of  the  afterbody.  By  continuing 
the  iteration  sequence  and  successively  reducing  the  bounds  ,  the 
i^n*  1-characteristic  through  the  afterbody  terminus,  (IE),  can  be 
determined  to  the  desired  degree  of  accuracy.  The  foregoing  cal¬ 
culation  sequence  completely  determines  the  flow  field  ever  the 
afterbody;  to  link  the  afterbody  and  constant-pressure  boundary 
flow  fields,  the  II-characteristic  through  the  afterbody  terminus 
is  determined,  as  shown  in  Figs.  2(a)  and  2(d).  This  is  accom¬ 
plished  (see  Fig.  2(d)  )  by  calculating  along  I-characteristics 
from  points  on  the  known  II-characteristic  to  the  unknown  II- 
characteristic  originating  at  the  terminus  of  the  afterbody.  The 
desired  number  of  points  on  this  characteristic  are  determined  by 
advancing,  after  the  point  i^“*,  along  the  known  II-characteristic 
and  repeating  the  foregoing  calculation  sequence.  The  afterbody 
and  final  afterbody  II-characteristic  calculations  described  above 
are  made  in  subprogram  ABTS.t 

For  the  internal  (propulsive-nozzle)  flow,  [1,  pp.  4,5],  the 
ideal  uniform-flow  propuls ive-noz2le  reduces  to  the  trivial  spec¬ 
ification  of  the  uniform  Mach  number  and  flow  direction  along  the 
straight  characteristic  through  the  terminus  of  the  nozzle.  The 
ideal  conical-flow  nozzle  is  specified  by  the  constant  nozzle 
Mach  number  and  the  variable  conical  flow  direction  along  the 
known  non-characteristic  curve  through  the  nozzle  terminus.  Thus, 
the  flow  field  between  the  non-characteristic  curve  and  the  initial 
characteristic  is  constructed  to  utilize  the  aforementioned  con¬ 
stant-pressure  boundary  calculation  sequence.  For  the  ideal  uni¬ 
form-flow  or  conical-flcw  nozzles,  respectively,  the  foregoing  cal¬ 
culations  are  made  in  subroutines  UFL0C+t  and  CNFL0Ctt  after  the 
specification  of  the  nozzle  geometry,  specific  heat  ratio,  and  the 
nozzle  Mach  number.  UFL0C  and  CNFLtfiC  are  subroutines  to  subprogram 
ACPBS . 


TMore  generalized  afterbody  calculations  could  be  carried  out  if  the 
known  II-characteristic  is  specified,  e.g.,  as  the  final  II-charac- 
teristic  from  a  previous  afterbody  calculation  rather  than  for  uni¬ 
form  free-stream  flow.  Thus,  by  "bootstrapping"  the  afterbody  cal¬ 
culations,  more  general  inviscid  afterbody  analyses  can  be  made. 

ttSee  APPENDIX  B  for  additional  comments  on  the  function  and  organi¬ 
ze  ion  of  these  subroutine:,  and  subprograms . 


Subprograms  ABT5  and  ACRES  only  are  available  as  input  op¬ 
tions;  the  applicable  configurations  and  notation  for  these  sub¬ 
programs  are  shown  for  the  afterbody  analysis  in  Tig.  3(a)  and 
for  the  con st ant -pres sure  boundary  analyses  in  Fig.  3(b). 

Shock  waves  occurring  in  three  instances  in  the  internal  or 
external  flow  fields  are  considered  approximately  as  reversible 
compressions  in  the  flow-field  analysis.  In  the  afterbody  cal¬ 
culations,  the  oblique  shock  wave  for  conical-flare  configurations 
is  approximated  by  a  single-line  reversible  compression;  in  com¬ 
parison  with  more  exact  analyses  [8,9]  the  results  of  this  simple 
approximation  appear  to  be  adequate  for  flares  of  moderate  angle 
and  length.  For  certain  combinations  of  geometry  and  operating 
conditions ,  oblique  shock  waves  can  occur  at  the  geometric  sepa¬ 
ration  points  of  the  internal  and/or  external  streams  as  a  re¬ 
sult  of  relatively  high  values  of  the  base  pressure.  Examples 
of  these  flow  conditions  would  be  the  oblique  shock  waves  occur¬ 
ring  in  the  external  flow  field  prior  to  or  at  onset  of  plume- 
induced  separation  of  the  external  flow ,  or  for  nozzle  geometries 
with  large  exit  flow  angles  and/or  highly  overexpanded  nozzle  flow 
Fortunately,  these  compressions  are  often  relatively  weak  and  as 
a  consequence  the  oblique  shock  waves  can  be  approximated  by  re¬ 
versible  compressions  at  the  internal  and/or  external  terminus 
points  (II),  (IE)  as  the  case  may  be. 

B.  TURBULENT-MIXING  COMPONENT 

The  turbulent -mixing  component  of  the  base-flow  analysis  dis¬ 
cussed  in  Part  I  of  this  report  is  unaffected  with  the  exception 
of  the  introduction  of  an  empirical  coefficient  in  the  recompres¬ 
sion  criterion.  The  empirical  recompression  coefficient  r  is  de¬ 
fined  [1,3]  by 


For  cylindrical  afterbodies,  a  convenient  expression  for  r 
which  gives  good  correlation  between  theory  and  experiment  has 
been  found- to  be,  [3], 

r  =  0.483  +  1.088RU  -  0.874^  +  0.3031^ 


(2) 


A  similar  experimental-theoretical  correlation  is  unavailable  at 
this  time  for1  boattailed  or  flared  afterbodies;  consequently,  the 
value  of  r  =  1  for  the  unmodified  flow  model  is  incorporated  in 
the  computer  program.  As  an  alternative ,  however,  r  is  also  avail¬ 
able  as  an  input  option. 


C.  TURBULENT  BOUNDARY-LAYER  SEPARATION  CRITERION 

To  establish  an  upper  bound  on  the  trial-solution  values  of  the 
base-pressure  ratio,  an  approximate  empirical  turbulent  boundary- 
layer  separation  criterion  proposed  by  Sukoski  [4]  is  used. 
Znkoski's  empirical  relationship  has  the  simple  form 

Psep 

- -  =  Cl  +  0.365M]  (3) 


Tlius,  according  tc  this  criterion,  the  separati on-to-local  static 
pressure  ratio  is  linearly  related  to  the  local  Mach  number  at  the 
boundary- layer  separation  point. 


for  specified  values  of  the  Mach  numbers,  M1E  and  Mu  ,  and 
the  nozzle  static-to- freest re am  or  stagnation-to-freestream  pres¬ 
sure  ratio,  Pjj  or  PoI  ,  the  pressure  ratios  for  boundary -layer 
separation  at  locations  (IE)  and  (11)  are  estimated  for  the  free- 
stream  as 


^PSEP  \ 


=  [1  +  0 . 36 5M  J  P,.. 

1 L  U 


(4) 


and  for  the  propulsive  nozzle  as 

(P  )  =  [1  +  0 . 36 SM  ]  P 

SEP  l  L  II  J  II 


(5) 


The  upper  limit  imposed  on  the  trial-solution  values  cl  the  base- 
pressure  ratio  is  based  on  boundary- layer  separation  occurring  at 
either  location  (IE)  or  (II)  whichever  would  correspond  to  a  lower 
value  of  the  base-pressure  ratio.  Thus  if  (PSEP  )E  >  (PSEp  )j  ,  the 
upper  limit  on  the  base-pressure  ratio  is 


(P  )  =  (P  ) 

BTMAX  SEP  'I 

or  conversely  if  (P"SEp  )£  <  (PSEp  \  »  then 

(P  )  =  (p-  ) 

B  MAX  SEP  E 


(6) 


(7) 
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The  base-pressure  solution  range  is 


(p  ) 

V  B  •MI  N 


<  P_ 


B'MAX 


(8) 


where  initially  (PB  n  “  0  and  i/iAX  determined  from  Eq.  (6) 
or  (7).  As  the  solution  iteration  sequence  progresses,  both  the 
lower  and  upper  bounds  on  the  base-pressure  solution  are  changed, 
if  possible,  to  reduce  the  possible  solution  interval.  If  a  re¬ 
duction  in  the  upper  bound  on  the  solution  interval  and  conver¬ 
gence  to  a  solution  are  not  achieved,  the  iteration  sequence  is 
terminated  with  boundary- layer  separation  possibly  occurring. 
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III.  COMPUTER  PROGRAM 


The  complete  computer-program  listingt  for  TSABPP-2  developed 
for  analyzing  the  two- stream  axisymmetric  base-pressure  problem  is 
contained  in  APPENDIX  A.  Many  explanatory  C0MMENTS  regarding  spe¬ 
cific  operational  details  of  this  program  have  been  included  in  the 
program  listing.  In  APPENDIX  B,  the  main  program,  subprograms,  and 
the  various  subroutines  are  identified,  are  ordered  according  to 
their  first  appearance  in  the  calling  sequence,  and  are  briefly  dis¬ 
cussed  as  to  their  operational  function. 

The  main  program  of  TSABPP-2  is  organized  according  to  the  sum¬ 
mary  flowchart  of  Fig.  4(a),  [1,  Fig.  7.].  Subroutine  IN0UT  has  been 
significantly  modified  and  re-organized  from  the  earlier  version 
(TSABPP-1)  of  this  program  [1]  to  achieve  flexibility  in  the  overall 
program  so  that  the  inviscid  flow-field  calculation  subprograms  are 
available  as  input  options,  to  have  more  convenient  input  options, 
and  to  provide  the  option  of  an  afterbody  upstream  of  the  base. 

The  organization  of  IN0UT  is  illustrated  by  the  flowchart  in 
rig.  4(b). 

A.  PROGRAM  INPUT 

The  input  to  TSABPP-2  is  by  cards.  A  complete  list  of  the  avail¬ 
able  input  variables  and  their  definitions  is  contained  in  Table  1; 
normally,  it  is  necessary  only  to  input  a  partial  list  of  these  vari¬ 
ables  depending  on  the  input  option  selected  and  the  extent  to  which 
the  default- configui’ation  data  is  used.  There  are  four  input  data 
options  specified  by  the  variable  IN0PT  which  are  available  to  the 
program  user. 


The  first  input  option,  IN0PT=1,  is  by  NAMELI5T/DATA/.t+ 

Table  2  defines  the  required  input  variables,  the  default-configu¬ 
ration  data  available,  and  the  data-card(s)  format.  The  second  in¬ 
put  option,  IN0PT=2,  is  by  NAMELIST/DATA/  and  a  complete  set  of 
data  cards  which  must  specify  all  variables  defined  in  Table  1, 


tThe  program  listing  is  in  F0RTRAN  IV  as  applicable  to  the  IBM  0S 
360/75.  Program  modifications  necessary  to  adapt  this  program  to 
an  IBM  7094  F0RTRAN  IV  IBJ0B  system  are  detailed  in  APPENDIX  D. 
The  appropriate  modifications  and  their  location  within  the  pro¬ 
gram  are  identified  by  the  program-identification  name  and  card 
number  in  columns  73  to  80, 

t+This  input  is  used  for  the  IBM  0S  360/75  F0RTRAN  IV  version.  See 
APPENDIX  D  for  the  necessary  modifications  for  the  IBM  7094  F0R- 
TRAN  IV  version. 
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Table  3  defines  for  this  input  option  the  variable  locations  and  data¬ 
card  formats.  The  foregoing  input  options  (IN0PT=1,2)  are  used  for 
complete  base-flow  solution  calculations. 

The  third  input  option,  IN0PT=3,  is  by  NAMEL1 ST/DATA/  for  the 
calculation  of  internal-flow  constant -pressure  boundaries  only. 

The  required  .input  data,  the  default-configuration  data,  and  the 
input  data-card  format  is  specified  in  Table  4. 

The  fourth  input  option,  IN0PT=4,  is  by  NAME LI  ST /DATA/  for 
the  calculation  of  the  external  flow  field  only.  The  calculations 
include  the  afterbody  and/or  constant-pressure  boundary  flow-field 
calculations  as  specified  by  the  input  data.  The  required  input 
data,  the  default-configuration  data,  and  the  input  data-card 
format  is  specified  in  Table  5. 


B.  PROGRAM  OUTPUT 

The  program  output  is  in  printed  and  an  optional  punched  form. 
For  a  given  configuration,  the  printed  output  data  can  be  obtained 
at  the  option  of  the  user  in  one  of  thx'ee  levels  of  detail  by  speci¬ 
fying  the  print  parameter  NPRINT.  The  short-form  printed  output  op¬ 
tion,  NPRINT=-1,  consists  only  of  the  data  required  to  specify  the 
configuration,  the  current  case,  and  the  corresponding  theoretical 
solution.  The  more  detailed  printed  output  options,  NPRINT=0,1,  in¬ 
clude,  in  addition  to  the  foregoing  data,  the  iteration-step  data. 

A  detailed  outline  of  the  data  printed  for  each  value  of  the  print 
parameter  is  given  in  Table  6.  The  optional  punched  output  data, 
NPUNCH=1,  summarizes  the  theoretical  base-flow  solution  data  for 
each  input  configuration  and  the  cases  considered.  The  punched  out¬ 
put  data  is  summarized  in  Table  7. 


C.  PROGRAM  ERROR  MESSAGES 

Various  program  error  messages  can  be  generated  during  the  base- 
flow  solution  iteration  sequences.  These  messages  are  intended  as 
information  for  the  program  user  and,  as  such,  do  not,  in  general, 
require  -my  action  by  the  user.  The  error  messages  are  divided  into 
three  categories: 

i.  Messages  generated  during  the  iteration  sequence  for  the 
base-flow  solution.  For  these  cases,  convergence  to  a  so¬ 
lution  is  achieved  and  as  a  consequence,  the  error  mes¬ 
sages  are  not  significant. 

ii.  Mess apes  generated  as  a  result  of  non-convergence  to  the 
base-flow  solution.  These  messages  indicate  the  problem 
areas  encountered  and  why  a  solution  could  not  be  achieved; 
the  solution  iteration  sequence  is  terminated. 
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iii.  Messages  resulting  specifically  from  the  inviscid  flow- 
field  calculations.  The  most  common  errors  giving  rise 
to  these  messages  are  excessive  "foldback"  of  the  char¬ 
acteristics  network  due  to  wave  coalescence,  non-conver¬ 
gence  of  a  unit-process  calculation,  or  compressions  de¬ 
veloping  in  the  flow  field  that  would  give  rise  to  locally 
subsonic  flow.  The  flow-field  calculations  are  terminated 

The  origin  and  an  explanation  of  the  various  possible  error 
messages  generated  by  the  program  and  subroutines  during  execution 
are  given  in  APPENDIX  C.  The  messages  are  duplicated  therein, 
referenced  to  the  subroutine  name,  and  ordered  according  to  the  se¬ 
quence  numbers  assigned  in  APPENDIX  B. 
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IV.  REPRESENTATIVE  THEORETICAL  AFTERBODY  AND 
BASE-FLOW  SOLUTION  RESULTS 


Representative  parametric  afterbody  and  base-flow  solution 
data  are  presented  herein  to  demonstrate  the  qualitative  behavior 
of  the  theoretical  solutions  over  a  range  of  geometric  and  flow 
variables,  to  demonstrate  the  capabilities  of  the  component-model 
based  computer  program,  and  to  complement  the  parametric  base-flow 
solution  data  previously  presented  [1].  The  trade-offs  and  inter¬ 
actions  between  the  afterbody  and  base-flow  components  are  of  par¬ 
ticular  interest  from  the  standpoints  of  possible  afterbody-base 
drag  reduction,  as  well  as  overall  system  optimization. 

Theoretical-experimental  comparisons  are  limited  to  a  com¬ 
parison  with  an  empirical  correlation  developed  by  Brazzel  and 
Henderson  [5]  and  to  a  comparison  with  some  experimental  data  ob¬ 
tained  by  Baughman  and  Kochendorfer  L&3. 


A.  PARAMETRIC  VARIATIONS  IN  SELECTED  GEOMETRIC  AND  FLOW  VARIABLES 


For  the  parametric  study  of  the  afterbody-base  problem,  several 
of  the  variables  were  restricted  to  mid-range  values  us  -.d  in  the 
parametric  study  of  the  base-flow  problem  with  a  cylindrical  after¬ 
body  [1].  In  addition,  the  afterbodies  considered  were  limited  to 
a  one-caliber  length;  this  limitation  is  not  considered  to  be  seri¬ 
ous  since  ether  afterbody  lengths  would  be  expected  to  produce  re¬ 
sults  similar  to  those  presented  herein.  As  a  consequence  cf  the 
foregoing  restrictions,  the  parametric  study  has  been  principally 
confined  to  variations  in  afterbody  geometry.  The  afterbody  ge¬ 
ometries  considered  are:  conical  and  tangent-ogive  boattails  and 
conical  flares;  for  each  afterbody  geometry,  a  series  of  configu¬ 
rations  are  considered.  The  configuration  and  flow  data  are  sum¬ 
marized  in  Table  8  for  this  parametric  study. 


For  each  afterbody  geometry,  the  data  is  presented  in  a  se 
ries  of  figures  which  first  present  the  individual  theoretical 
afterbody  and  base-flow  results  followed  by  the  combined  after¬ 
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in  Figs.  5(a),  6(a)  and  7(a)  for  the  conical  and  tangent-ogive 
boattails  and  the  conical  flares,  respespectively ;  the  afterbody  pi’es- 
sure  distributions  which  were  integrated  to  obtain  the  foregoing 
afterbody  drag  coefficients  are  presented  in  Figs.  5fb),  6(b)  and 
7(b)  for  the  respective  afterbody  geometries.  Figures  5(c,d)  and 
6(c,d)  and  7(c,d)  present  the  base-pressure  ratio  and  the  base  drag 
coefficient,  respectively,  for  each  afterbody  geometry;  included  in 
each  figure  for  purposes  of  reference  are  the  data  for  a  cylindrical 
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afterbody  under  similar  operating  conditions  [1],  It  is  apparent 
from  Figs.  5(c,d)  and  6(c,d)  that  boattailing  can  significantly 
increase  the  base-pressure  ratio  and  correspondingly  decrease  the 
base  drag  coefficient;  the  opposite  behavior  is  seen  from  Figs.  7(c, 
d)  to  be  the. case  for  the  conical-flare  afterbody.  For  the  coni¬ 
cal-flare  afterbody,  the  relative  decrease  in  base-pressure  ratio, 
although  being  relatively  small,  does  give  rise  to  a  significant 
increase  in  the  base  drag  coefficient.  The  overall  afterbody-base 
drag  coefficients  are  shown  in  Figs.  5(e,f),  6(e,f)  and  7(e,f)  for 
each  afterbody  configuration.  Figures  5(e,f)  and  6(e,f),  and  in 
particular.  Fig.  5(f)  and  6(f),  show  that  the  overall  afterbody- 
base  drag  coefficient  can  be  minimized  by  proper'  selection  of  the 
boattail;  in  all  cases  considered,  boattailing  tended  to  reduce 
significantly  the  overall  afterbody-base  drag.  For  the  conical- 
flare  afterbody.  Tigs.  7(e,f)  show  that  such  an  afterbody  signifi¬ 
cantly  increases  the  overall  afterbody-base  drag. 

The  effects  of  base  "bleed"  on  the  overall  boattail-base  drag 
coefficient  are  shown  in  Fig.  5(g)  for  conical  boattails  at  two 
fixed  operating  pressure  ratios  and  parametric  values  of  the  base- 
bleed  ratio.  The  overall  drag  coefficient  is  significantly  reduced 
by  base  "bleed";  however,  the  effectiveness  of  base  "bleed"  de¬ 
creases  with  increasing  base-bleed  ratios.  The  possibility  of 
minimizing  by  the  proper  selection  of  the  base-bleed  ratio  and 
boattail  angle  is  evident  from  Fig.  5(g). 

Figure  8(a)  summarizes  the  overall  drag  coefficient  data  for 
the  conical-afterbody  geometries;  these,  data  are  presented  as  over¬ 
all  afterbody-base  drag  coefficient  versus  the  base-to-body  area 
ratio  for  parametric  values  of  the  operating  pressure  ratios.  This 
particular  set  of  coordinates  has  been  suggested  as  a  possible 
means  of  unifying  and  correlating  conical-afterbody  data.  Brazzel 
and  Henderson  [5]  have  proposed  an  alternative  correlation  for  coni¬ 
cal-afterbody  data  based  on  a  review  of  available  experimental  data; 
they  found  these  experimental  data  could  be  correlated  into  a  rela¬ 
tively  narrow  band  if  the  ratio  of  the  cylindrical -tc-conical  after¬ 
body  base-pressure  ratios  were  plotted  versus  the  base-to-body  area 
ratio.  The  theoretical-solution  data  for  the  conical  afterbodies 
are  presented  on  this  basis  in  Fig.  8(b).  This  particular  system  of 
coordinates  does  seem  to  correlate  the  theoi'etical-solution  data  by 
reducing  the  influence  of  the  nozzle- to-freestream  static  pressure 
ratio. 


B.  LIMITED  COMPARISON  WITH  EXPERIMENT 

Included  xn  Fig.  8(b)  for  comparison  wirh  the  theoretical  re¬ 
sults  of  the  parametric  study  for  conical  afterbodies  is  the  experi¬ 
mental  correlation  curve  determined  by  Brazzel  and  Henderson  [5]. 
This  empirical  correlation  curve  is  based  on  experimental  data 
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obtained  over  a  relatively  wide  range  of  geometric  and  flow  vari¬ 
ables.  While  the  reasons  for  the  discrepancy  between  the  slopes 
of  the  theoretical  and  experimental  correlation  curves  are  not 
readily  apparent,  the  discrepancy  can  be  partially  attributed  to 
the  usual  overestimation  of  the  base-pressure  ratio  by  the  theo¬ 
retical  analysis.  For  cylindrical  afterbodies,  the  overestimation 
of  the  base-pressure  ratio  can  be  significant  depending  on  the 
flow  geometry;  an  empirical  modification  to  the  theoretical  model 
lias  been  determined  which  reduces  this  discrepancy  [1,3],  Experi¬ 
ence  has  shown  qualitatively  that  without  empirical  modifications 
tp'the  flow  model  the  agreement  between  the  theoretical  and  experi¬ 
mental  base-pressure  results  is  usually  better  for  conical  after¬ 
bodies  than  for  cylindrical  afterbodies.  Currently,  thorough  quanti 
tative  theoretical-experimental  comparisons  have  not  been  completed 
for  non-cylindrical  afterbodies  and,  as  a  consequence,  possible  em¬ 
pirical  modifications  to  the  theoretical  model  are  not  yet  available 

Figure  9(a)  presents  a  comparison  for  several  conical  boattails 
between  the  experimental  data  of  Baughman  and  Koehendorfer  [6]  and 
the  inviscid  afterbody  analysis;  the  agreement  between  theory  and 
experiment  is  reasonably  good  for  these  boattails.  It  should  be 
noted,  however,  that  boundary-layer  effects  can  lead  to  significant 
discrepancies  between  the  present  inviscid  afterbody  analysis  and 
experiment. 

For  the  foregoing  conical  boattails,  the  base  pressure  coef¬ 
ficients  determined  by  the  experiments  of  Baughman  and  Koehendorfer 
[6]  and  the  theoretical  analysis  are  compared  in  Figs.  9(b,c).  In 
Fig.  9(b),  the  propulsive-nozzle  flow  was  from  a  converging  nozzle; 
for  these  cases  the  theoretical-experimental  agreement  is  accept¬ 
able.  However,  in  Fig.  9(c)  where  the  propulsive-nozzle  Mach  number 
has  been  increased,  the  theoretical  results  grouped  together  as  in¬ 
dicated  in  the  figure.  Since  the  experimental  data  do  not  exhibit 
these  trends ,  the  agreement  between  theory  and  experiment  is  poor 
for  these  particular  cases.  However,  the  experimental  data  of 
Baughman  and  Koehendorfer  does  show  trends  with  increasing  propul¬ 
sive-nozzle  Mach  number  which  are  similar  to  the  theoretical  results 
presented  in  Fig.  9(c).  Of  the  theoretical-experimental  comparisons 
which  have  been  made  for  various  afterbody  configurations,  the  com¬ 
parisons  presented  in  Figs.  9(b,c)  represent  qualitatively  the  maxi¬ 
mum  divergence  between  experiment  and  theory  which  has  been  en¬ 
countered  to  date. 
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V. 


CONCLUSIONS 


Due  to  the  significant  contribution  of  the  base  drag  to  the 
overall  aerodynamic  drag  of  a  vehicle,  any  factors  or  modifications 
which  could  influence  the  combined  afterbody-base  drag  must  be 
considered  *  The  component -model  based  computer  program  provides 
a  quick,  convenient,  and  effective  means  for  conducting  qualitative 
studies  of  the  base-flow  problem  and  the  many  variables  involved. 

As  a  consequence,  this  computer  program  is  well  suited  for  optimi¬ 
zation  and  system  studies  wherein  significant  variations  in  the 
variables  must  be  considered.  With  the  determination  of  suitable 
empirical  modifications  to  the  flow  model,  quantitative  studies 
can  also  be  made  with  confidence. 

To  further  develop  and  expand  the  usefulness  of  this  computer 
program,  studies  of  the  following  factors  should  he  continued: 

i.  the  influence  of  the  boundary  layer  on  the  afterbody  flow- 
field  calculations, 

ii.  the  inclusion  of  the  boundary  layer  as  an  equivalent  base 
"bleed ," 

.iii.  the  detailed  experimental-theoretical  comparisons  which 
could  serve  as  the  bases  for  empirical  modifications  to 
the  component  flow  model, 

iv.  the  continued  development  of  empirical  modifications  to 
the  flow  model  to  improve  the  engineering  usefulness  of 
the  computer  program,  and 

v.  the  investigation  of  the  fundamental  processes  involved. 
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Figure  2  continued 


Figure  2  continued 
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INTERNAL  FLOW  v  CHARI  (M,N) 


(b)  Constant-pressure  boundary  notation  for  subprogram  ACPBS 


Figure  3  continued 


TABLE  1 


INPUT  VARIABLE  DEFINITIONS  FOR  PROGRAM  TSABPP-2 


:::::c::5:::::::C0MPyTEp>  RR0GRAM  VARIABLE  DEFINITIONS""""5”'"" 

A(20)  =  CONFIGURATION  TITLE. 

F0R  EITHER  THE  INTERNAL  CO  0R  EXTERNAL  (E)  STREAM: 

XI. R1  =  COORDINATES  0F  P01NT  WHERE  SEPARATION  OCCURS. 


BETD1 

GC 

GAMMA 

EMN1 

NSHAPE 

X2E, R2E 
BETD2E 

LMNE 

trOei 

PR01E 

PR1IE 

REC0MP 


CR1-S  ARE  POSITIVE) 

-  FLOW  ANGLE5'DEG.5:  AT  (XI, Rl).  CCW  IS  POSITIVE. 

<  BETD1I  IS  (+)  AND  BETD1E  IS  (+/-)  ) 

=  GAS  C0NSTANT5'5'5'(LBF-FT/LBM-R) 

-  RATIO  0F  SPECIFIC  HEATS. 

=  MACH  NUMBER  AT  STATION  CO 
=  0,  N0  AFTERBODY. 

=  1,  0GIVE.  =2,  PARABOLIC.  ~'i ,  CONICAL. 

=  INITIAL.  COORDINATES  OF  THE  AFTERBODY. 

=  INITIAL  AFTERBODY  ANGLE  AT  (X2E,R2E)  in  DEGREES. 

CBETD2E  C-)  FOR  EXPANSI ON. 0R. BETD2E  C+)  F0R  COMPRESSION) 
=  EXTERNAL  FREESTREAM  MACH  N0. 

=  STAGNATION  TEMPERATURE  RATIO  OF  STREAMS,  T0E/T0I. 

=  STAGNATION- T0-STATIC  PRESSURE  RAT 10  OF  STREAMS,  P0I/PE. 

=  STATIC  PRESSURE  RATIO  OF  STREAMS,  P1I/PE. 

-  RECOMPRESSION  COEFFICIENT 


NOTE - 


NPRINT 


NPUNCH 

IN0PT 


DEFAULT  0R  INPUT  VALUE  OF  REC0MP-O.O  -AND. 

1)  NSHAPE =0,  THEN  REC0MP  IS  CALCULATED  FR0M 

EMPIRICAL  EQN-  IN0U  2620. 

(Ref.:  RD-TR-69-13) 

2)  NSHAPE =1,2,),  THEN  REC0MP=1.O  IS  CURRENTLY  USED. 

=  -1,  INPUT  DATA  AND  BASE  PRESSURE  S0LN  PRINTED. 

=  0,  INPUT  DATA,  ITERATIONS  AND  S0LN  PRINTED. 

=  +1,  INPUT  DATA,  ITERATION,  C.P.B.  DATA,  AND  50LN  PRINTED. 

=  0,  SUMMARY  OUTPUT  DATA  N0T  PUNCHED 

=  1,  SUMMARY  OUTPUT  DATA  PUNCHED 

=  1,  INPUT  BY  NAMELIST/ DAT A/ ONLY.  THE  DEFAULT  CONFIG. 

SPECIFIED  IN  1N0UT  IS  AVAILABLE. 

=  2,  INPUT  MUST  BE  SPECIFIED  BY  A  COMPLETE  SET  OF  DATA 

CARDS  FOLLOWING  THE  FIRST  CARD:  "  &DATA  IN0PT=2  &END". 
=  3,  INPUT  SPECIFIED  BY  NAMELI ST/DATA/  F0R  CALCULATION  OF 

INTERNAL-FLOW  CONSTANT-PRESSURE  BOUNDARIES. 

=  4,  INPUT  SPECIFIED  BY  fWCLI ST/DATA'  FOR  CALCULATION  OF 

EXTERNAL  FL0W:  AFTERBODY  ONLY  (NCASE=0)  AND/0R 
CONSTANT-PRESSURE  BOUNDARIES. 
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TABLE  1  (continued) 


NCA5E  =  N0.  0F  PRESS.  RATI0S  F0R  WHICH  BASE-PRESSURE 

CALCULATIONS  ARE  T0  BE  MADE  F0R  A  GIVEN  SET  0F 
C0ND3T10NS  AND  GEOMETRY. 

KPRESR  =  0,  PR11E  IS  INPUT,  AND  PR01E  IS  CALCULATED. 

=  1,  PR0IE  IS  INPUT,  AND  PR1IE  IS  CALCULATED. 
PRATI 0, PR( I )  =  INPUT  PRESSURE  RATI0(S). 

BLDR0,BR0(I)  ■=  INPUT  BLEED  RATI0CS). 

ENGR0,ER0CO'  =  INPUT  ENERGY  RATI0CS). 


TABLE  3 


i 


TSABPP-2  INPUT  OPTION  7  (lN0PT=2)  BY  A  COMPLETE 
SET  OF  DATA  CARDS + 


Card 

Number 

Variables 
(Refer  to  Fig.  1) 

F  ormat 

Specification 

1 

SDATA  IN0PT=2  SEND 

(2  to  60) 

2 

Any  alpnanumeric  title 

OOA4) 

3 

XI I , R1 I , BETD1 I ,GC I ,GAMMAI , 
EMN11,NSHAPE 

(6F10.6,lO 

IF  NSHAPE~0,  CARD  N0.  4  IS: 

4 

XI E , R1 E , GCE ,  GAMfdAE  ,  EHNIE 

C5F10.65 

0R,  IF  NSHAPE=1,2,  0R  3,  CARD 

N0.  4  IS: 

4 

X2E,R2E,BETD2E,X1E,R1E,GCE, 

GAMMAE,EMN£ 

C8F10.6) 

S 

TR0EI ,REC0MP 

C2F10.6) 

6 

NPRINT,NCASE,NPUNC-H,KPRESR 

(12,13,210 

IF  KPRESR=0,  CARD  N0.  7  AND 

F0LL0WING  ARE: 

7 

_  PR1 1E,BLRD0,ENGR0 

(3F10.6) 

* 

0R,  IF  KPRESR=1,  CARD  N0.  7 

AND  F0LL0WING  ARE: 

7 

PR0IE,BLDR0,tNGR0 

(3F10.B) 

t  Mote:  There  are  (6+UCASEO  data  cards  per  case. 


TABLE  4 


TSABPP-2  INPUT  OPTION  3  CIN0PT=3)  FOR  CALCULATION 
OF  INTERNAL-FLOW  CONSTANT-PRESSURE 
BOUNDARIES  ONLY.  INPUT  BY  NAMELIST/DATA/: 

"  EDATA  IN0PT=3,A='..,',  etc.  SEND" 


Variables 

Default  Values 

IN0PT 

1 

AC  20) 

— 

XII 

0.0 

R1I 

1.0 

BETD1 I 

0.0 

GAMMA I 

1.4 

EMN1I 

0.0 

NCASE  .LE.  20 

0 

PRO  0,1=1,  NCASE 

t+t 

tRequired  input  value. 


Input  Valuer,  CIN0PT=3) 


3 


INPUT 


*++ 


f+Optional  input  value. 
t+tPRCO=PB/PQI . 


TABLE  5 


TSABPP-2  INPUT  OPTION  4  (IN0PT=4>  FOR  CALCULATION  OF 
EXTERNAL  FLOW  ONLY:  AFTERBODY  AND/OR 
CONSTANT-PRESSURE  BOUNDARIES.  INPUT  BY 
NAMELIST /DATA/: 

"  SDATA  1N0PT=4,  A=  etc.  SEND” 


Variables 


Default  Values 


Input  Values  (IN0PT=4) 


I N0PT 

1 

A(  20) 

--- 

NSHAPE 

0 

X2E 

0.0 

R2E 

1.0 

BLTD2E 

0.0 

X1E 

0.0 

R1E 

1.0 

GAMMAE 

1.4 

EMNE 

0.0 

NCASE  .LE.  20 

0 

PRO),  I=1,NCASE 

++t+ 

INPUT 


1 ,  2 ,  or  3 


>v++ 


INPUT 


INPUT 


INPUT 


INPUT 

INPUT 

1 NPUT 

INPUT 

ttt 

INPUT 

INPUT 

Tkequircd  i rn ?u  L  value. 
t+Opl ional  input  value. 
t++Af terbodv  only:  NCASE-0 . 


+t+tPRCO=PB/P0E. 


TABLE.  6 


PRINTED  OUTPUT  DATA  AND  OPTIONS 
FOR  THE  TSABPP-2  PROGRAM 


Input  option,  IN0PT= 

1  2 

3 

D 

Printed  Output  Data 

NPRINT= 

■ 

■ 

-1 

■ 

1.0 

Afterbody  data 

xf 

X 

X 

■ 

M 

1.1 

Geometry  and  flow  input  data 

X 

X 

1 

■ 

^9 

1.2 

Surface  data:  LX,R,M ,P/P  ,Cp 3 

X 

X 

1 

■ 

^9 

1.3 

Drag  coefficient,  CDfiT 

X 

■  . 

1 

1 

H 

2.0 

Identification  heading 

X 

X 

1 

B 

3.0 

Summary  of  input  data 

X 

1 1 

X 

X 

X 

4.0 

Current  iteration-step  results 

1 1 

X 

4.1 

(I)  boundary  data:UBI  , ,6Bt  ] 

X 

X 

4.2 

(E)  boundary  data:[XB(,  ,0B£.3 

X 

X 

4.3 

Inviccid  impingement  point  data 

1  • 

X 

4.3.1 

CX,R,9,M,s] 

X 

X 

4.3.2 

LSgjPg/P^J  for  the  shock  system 

X 

X 

4.4 

Turbulent  mixing  results 

X 

X 

4.4.1 

Current  trial  input  o  ta 

X 

X 

4.4.2 

Dimensionless  mass  and  energy 
transfer  ration,  [B,E] 

X 

X 

4.4.3 

Current  base-pre-sure  and  base- 
temperature  data  LP  ,T  ,b,L] 

b  a 

X 

X 

lor  ABIP^,(Tj>)BoD  =  0  and 

s  U 

f,  r\ 

Solution  data  [Pfl5  ,TW  ,Cp„  ,CD„  ] 
when  ML  I’B£.  ,Tb$  ]  -  0  and 

X 

X 

^bs,tbSJ  =  o 

+x  =  Data  printed. 
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TABLE  5 


TSAbPP-2  INPUT  OPTION  4  (1N0PT=4)  FOR  CALCULATION  OF 
EXTERNAL  FLOW  ONLY:  AFTERBODY  AND/OR 
CONSTANT-PRESSURE  BOUNDARIES.  INPUT  BY 
NAMELIST/DATA/: 

"  5 DAT A  IN0PT=4,  A=  ' . . . ' ,  etc.  BEND" 


Variables 

1N0PT 
AC  20) 

NSHAPE 

X2E 

R2E 

BETD2E 

X1E 

R1E 

GANMAE 

EMNE 

NCASE  .LE.  20 
PRO),  1=1,NCASE 


Default  Values 
1 

0 

0.0 
1.0 
0.0 
0.0 
1.0 
1.4 
0.  0 
0 

tt+t 


Input  Values  ON0PT=4) 


>'rf+ 


... 

INPUT 

A 

INPUT 

••• 

1 HPUT 

f  ‘ 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

+Kequired  input  value. 
+ff'j>t  ional  .input  value. 
+t+Al i erDodv  only:  NCAUE=0. 
++t+PRC I )=PB/PQL . 


TABLE  6 


PRINTED  OUTPUT  DATA  AND  OPTIONS 
FOR  THE  TSABPP-2  PROGRAM 


Input  option,  IN0PT= 

1,2 

3 

4 

Printed  Output  l)uta 

NPR INT= 

«  • 

• 

-1 

0 

+1 

1.0 

Afterbody  data 

xt 

X 

X 

X 

1.1 

Geometry  and  ilow  input  data 

X 

X 

X 

X 

1.2 

Surface  data:  [Ji,H,H,P/P  ,C  ] 

X 

X 

X 

X 

1.  3 

Drag  coefficient,  C  v 

X 

X 

X 

X 

2.0 

Identification  heading 

X 

X 

X 

X 

X 

3.0 

Summary  of  input  data 

X 

X 

X 

X 

X 

4.0 

Current  iteration-step  results 

X 

X 

4  ._1 

(I)  boundary  data:[XBI  .R^  ,0  j 

X 

X 

4.2 

(E)  boundary  data : [XBE  ,Hfat  ,0BJ.  ] 

X 

X 

4.3 

Inviscid  impingement  point  data 

X 

X 

4.3.1 

LX,k,0,M,s] 

X 

X 

4.3.2 

L0,.  ,P  /!’  ]  for  the  shock  system 

X 

X 

4.4 

Turbulent  mixing  results 

X 

X 

4.4.1 

Current  trial  input  data 

X 

X 

4.4.2 

Dimensionless  nidss__and  energy 
tram,  f e  r  ratios.,  1  B  ,E  ] 

X 

X 

4.4,3 

Current  base-pressure  and  base- 
temperature  data  [1’  ,T  ,P,L.) 

X 

X 

lor  ,(lj  )Bo  ]  =  0  and 

--  11 

3.0 

solution  data  U BS  us  ,CDB 3 

when  AbLi'BS  ,I'BB  J  =  0  Olid 

X 

X 

X 

^Fbs  *TbsJ  =  0 

+:•:  Data  printed. 


TABLE  7 


PUNCHED  OUTPUT  DATA  FOR  THE 
TSABPP-2  PROGRAM  CNPUNCH-1) 


Punched  Summary  Output  Data  (NPUNCH=1) 

1.0 

Flow  Configuration 

1.1 

Internal  Flow: 

LHu  ,  Bn  ,  Pjj  ,  Kj  ,  Yj  J 

1.2 

External  Flow:  (no  afterbody) 

»iK  =  Die*  V  V 

1.3 

Miscellaneous 

*-Xn  »  ‘  n  /°i,  ’  r*  ToE//Toi  ^ 

1.4 

Afterbody 

1  NSHAPL ,  X2t/D2E,  B2E,  X1k/Die,  D^/D^  ,  B^] 

2.0 

No-Solution  Caeea 

2.1 

Current  Values  of: 

LloI  *  !  U  *  V 

CM 

CM 

MtJ  ii  t!  • 

nN li  SOLUTION  PB/PE=X.XXXXXH 

2.3 

Configuration  Identification  heading. 

if  I. ast  Case 

3.0 

Solution  Caaea 

3.1 

Solution  Values  of: 

L*.r  *  1  u  ’  5b’  CVu’  Cdb  ’  *1.1-  *  lt^ 

3.2 

Configuration  Identification  Heading, 

if  Last  Case 

TABLE.  B 


Summary  of  the  configuration  data  for  the  parametric  study  of 
the  afterbody  influence  on  base-pressure  ratio, 
base  drag,  and  overall  drag 


Configuration  Data 


Variable 

External  Flow 
(E) 

Internal  Flow 
(I), (11) 

y 

1 

4  ^ 

1.4 

IR  [lbf  -  ft/lbm-°R] 

53.35 

53.35 

M 

2.0 

2.5 

(2E) 

(IE) 

X 

0.0 

2.0 

2.0 

R 

1.0 

Rie 

0.6 

£  (degrees) 

/32E 

£ie 

0.0 

Tqe  =  1 ,  E0  =  0  ,  r  -  1.0  ,  B0  =  0  or  as  noted 


Conical  Boattail 
NSHAPE  -  3 

Tangent -Ogive  Boattail 
(%=0°),  NSHAPE  =  1 

Conical  Flare 
NSHAPE =3 

Rie 

Configuration 

Number 

Rie 

/3  2E 

Rie 

0° 

1.0 

1 

1.0 

0° 

1.0 

-2 

.9302 

Q 

u 

.9302 

2 

1.0698 

-4  • 

.8601 

3 

.8601 

4 

1.1398 

-6 

.7898 

4 

.7898 

6 

1.2102 

-8 

.7180 

5 

.7180 

10 

1.3527 

-10 

.6473 

6 

.6473 

— 

— 

-11.309 

.6000 

7 

.6000 

— 

— 

Figs 

5 

Figs.  6 

Figs 

*  7 

O.iO 


No  Base  - 

(02E  =  -11.309°) 


(a)  Inviscid  coni  cal -boattai 1  drag  coefficients 
Figure  b  Coni  cal -boattai 1  configurations 
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Figure  5  continued 


0. 18  ( — I — | — 1 — J — r— 1 — i — I — t — 1 
j Cylindrical  Afterbody 


(f)  Variations  in  the  combined  conical  boattail-bas 
drag  coefficient  for  several  pressure  ratios 


Figure  5  continued 


(g)  Variations  in  the  combined  conical  boattai 1 -base 
drag  coefficient  for  several  base-bleed  ratios 
at  fixed  operating  pressure  ratios 


Figure  5  continued 


Rie 


(a)  lnviscid  drag  coefficients  for  tangent- 

ogive  boattails  (8  =  0°) 

2  £ 


Figure  6  Tangent-ogive  boattail  configurations 


Fiyure  6  continued 


(e)  Variations  in  the  combined  boatt.aii  base  drag 
'  coefficient  for  several  tangent  ogive  boattails 


Figure  6  continued 


Approximate  Minimum  - 
^  _  Afterbody-Base  Drag  _ 

I  Cylindrical 
▼  Afterbody 

\~  Configuration  ~~ 

(1)  (2)  (3)  (4)  (5)  (6)  (7) 


(f)  Variations  in  the  combined  tangent-ogive  boattail- 
base  drag  coefficients  for  several  pressure  *-atios 


Figure  5  continued 


0.16 


(a)  Inviscid  conical -fl are  drag  coefficients  (approximate  anal> 
\  .gure  7  Coni  cal -fl are  configurations 


B 


(a)  Theoretical  combined  afterbody-base  drag  co¬ 
efficient  variation  for  conical  afterbodies 
as  a  function  of  base-to-body  area  ratio 


I'iyure  8’  Coni  cal -afterbody  configurations 


Exp. ,  Baughman  and  Kochendorfer 


Symbol 

Rii/Rie 

o 

0.300 

□ 

0.714 

V 

0.600 

A 

0.500 

o.  is  h 


0.08 


- Theory,  Method  of  Characteristics 

~t — i — 1 — f —  i  I — I — i — t  t - 

Location  of  Station  (IE)  for 

/  p  /p  \  - 

V  II  1E;  0.600  0.900 


0.300 


c 


PB" 


0 


0.714 


-0.08  Y 
“a 
o 

_S_J _ I _ L 


-4 
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Me  =  1.91 
fi?£~  “5.63' 


0.16 


0 


0.2 


0.4  0.6  0.8 

1  -  (r/r2E 


1.0 


>2] 


(a)  Conical-boattail  pressure  coefficient 
figure  9  Comparison  with  the  experiments  of  Baughman  and  Kochendorfer  [6] 


!■(. 


(c) 


Base  pressure  coefficient  versus  stagnati on-to- 


freestream  pressure  ratio  for  several  coni  cal -boat- 
tail  configurations  (M£=  1.91,  B2E  =  -5.63°,  M  =  2.60) 


i 


Figure  9  continued 


APPENDIX  A. 
MAIN  program 


TWO  STREAM  AX  IS VMM! TRIG  BASF  PRESSIIRF  PROGRAM 
( TSABPP-? I 


PA  GF  A-  1 


S  1  W  I  AM 


AXISYM,  METRIC 


BASF 


PRESSURE  PROGRAM  , 

AFTERBODY  optional 

external  stream 

(  1  ')  (■.  9  ,  FORTRAN 


*  T  S  A  B  P  P  - 

AL  BEFORE 

StPARAT  ION 
I  V  ) 


POINT 


c**«>;*rHlS  PROGRAM  IS  RASFO  ON  THF  FLOW  MODEL  OF  KORST,  FT.  AL  •  t 

C  REFER  ENC  E - UNIVERSITY  OF  ILLINOIS  REPORT  NO.  MF  39?-5. 

C 

(  e  o ff  **  WR  I  T  T  EN  BY  -  A.  L »  AOOY,  UNIVERSITY  OF  ILLINOIS. 

C 

Cffff**ffPROGRAM  REFERENCE'S - U.S.  ARMY  MISSILE  COMMAND,  REDSTONE  ARSENAL 


ALABAMA, 


REPORTS  NO.  RO-TR-feR- 1?, -13, -IS. 


Ceff*ff*CONFIGORATION  -  UNIFORM  OH  CONICAL  SUPERSONIC  INTERNAL  (NOZZLE) 

C  FLOW  ANIT  UNIFORM  SUPERSONIC  EXTERNAL  FLOW  WITH 

r.  OR  WITHOUT  AN  AFTERBODY  PRECEDING  THE 

c  SEPARATION  POINT.  AFTERBODIES - 

C  1)  OGIVE,  PARABOLIC,  AND  CONICAL 

C  BOA  I T  A 1 1.  S .  (RFTA2E  .LT.  O.O) 

C  2)  APPROXIMATE  ANALYSIS  OF  FLARES. 

(.  (BETA2E  .GT.  0.0) 


c*ff**ff INPUT  DATA  -  SEE  INOOT. 

C  0UTPU1  0A1A SEE  INOUT,  OUT  1  M,(JU1  2M,  OUTBDY ,  AND  CROSS. 

c  i npot /out put  options  —  see  inout. 

c 

C*  ffff*ff mqt  t  REGARDING  I/O  UNITS - 

C  UNIT  =  5,  REALS 

C  UNIT  -  6,  PRINT 

C  UNIT  -  7,  PUNCH 

C 

Cffff**ffMAST '  R  REQUIRES - INOUT,  0UT1M,  OUT 2M >  ACPBS,  CROSS,  TJMIX, 


REALS 
PR  I  NT 
PONC  H 


ITER.  THE  VARIOUS  SUBROUTINES  CALL  OTHERS. 


DIMENSION  PI  B  (  100,5,2)  ,  CHARI  IS,  30),  CHARE  (  5 , 30  )  ».  Pl(5),  P2(5), 

1  P?I5),  A  I  20 ) ,  OAT  A (  10*2),  BPTi(5,3Q),  RPTE(5,30) 

COMMON  PMB ,  CHARI,  CHARE,  PI,  P2,  P3 
COMMON  /EIUVP/  PHI  (350) 

COMMON  /0A1AI0/  GC I .GAMMAI , EMS1I ,X1 I ,RU , BETA1 I , 

1  GCE,GAMMAI ,EMS1E,X1  ,R\E.BETA1E,PR010E, 

2  TROEI  ,  PR1 1  E  ,  RE  COMP  ,  n,  EMN  1  I  ,  PR  1 01  ,  EMN1  E ,  PR  .101  f  , 

3  NPR  I  NT  ,  NC  AS  1 ,  NC  ASH  ,  P.LDRO  ,  f  NGRO ,  R  E  ,  EMNE  ,  PREOE, 

A  NPUNCH.PROEOI  , PRO  IE , P01F0I VN SH AP E , NP T S E , PR  II  IF 

C 

NC  ASF--0 
fi  NC  A  S  1 

10  IFINCAS1 .FO.NCASP)  NCAS1=0 
T»B*«ffHp AD/WR ; IF  BASE  PRESSURE  CASE  INPUT  DATA. 

CALL  INOUT 

I E ( NCASE , cC.O )  GO  TO  8 

C*ff*ff*LIMIT]NG  RADII  FOR  (I)  AND  (E)  STREAMS  ARE  SPECIFIED  HERF. 

R  L  I  =  1 . 5  vR  |  t 
RLE  =0 . 5*P.  I  I 

t»ff*«ff INITIALIZATION  OF  BASE  PRESSURE  I  ERATION  LOOP. 

DTRBOI = ( 1 . 1 -TROE 11/2.0 
BPRffO .50 
RPRL  =0  .0 

fffffffff*[-hipJRJCAL  SEPARATION  PRESSURE  RATIO  EXPRESSION  FROM - 

C  ZOKOSKI,  MAA  JOURNAL,  OCTOBER  1967,  VEIL.  5,  NO.  10,  PP .  1 7/.  6-1 753 

l  PRSFP  =  l.J  -i  0.365*(MAC.H  NO.). 

7(XT  El'NAL/ I  NTERNAL  FlOWS  SEPARATION  PRESSURE  RATIOS. 


MAIN 
MAIN 
MA  IN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
,  MA  I  N 
MA  IN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MA  I  N 
MAIN 
MA  I  N 
MA  I  N 
MAIN 
MAIN 
MAIN 
MAIN 
MA  IN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MA  I  N 
MA  I  N 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MA  IN 
MA  I  N 
MAIN 
MAIN 
MA  !N 
MAIN 
MAIN 
MA  1  N 
MA  I  N 
MA  I  N 
MA  1  N 
MAIN 
.MAIN 
MAIN 
MA  IN 
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APPINIllX  A.  TWO  STRIAM  AX1SYMMITR1C  BASE  PRESSURE  PROGRAM 

MAIN  PROGRAM  (TSABPP-?)  RAGt  A-  2 


?0 


PKSIE  -  1.0  +  0.36B*EMN1E 
PRSli  -  1.0  +  0.36H+EMN1I 
RPRR  =  PR  SH¬ 
IP  (  (  (PRS11 /PRSH  )*PH1  1  in  .I  T.  1.0) 
NOSOLN=7 
NOSMAX  -  10 
1  RPR  =  1 
1 RPRMX= 1 H 
NR  PR  = 1 
NTYP  1-1 

(MARS  <TRUEI-1.0).LE.1.0E-()3)  NT  YPE  =3 
11-  (1RPR  .  L  E  .  IRPRMX)  GO  TO  AO 


RPRL,  11PP.,  RPRR 


RPRR 


PR  SI  1 *PR 1 1  It 


WRITE  (6,72) 

??  FORMAT  t // ,  1HX, 

1  S  3  Pi  a  A  AM  AX  I  MUM  NO.  (IF  BASE  PRESS.  I  T  I  RATIONS  F  XtFfOFD*  **  ,/, 
?  1  H  X  ,  1 0  H  *AABt>RL  '•  .FV.A,?X,7H  RPR  *  ,E7.A,2X, 

3  70  RPRR  *  ,F7.A,AH  1 

IF  I  ( AHS (RPR -RPRR ) .L!  . 1 .OF- 3) .OR, I RPR . GT . HPRR )  )  WHI TE ! 6, 2  A) 


FORMAT 


<1HX,33H  ***  PROBARLF  PLOW  SEPARATION  FOR 
POO  SPECIE  IPO  DATA  ***  ,/) 


PE 


WRIT!-  (6,26) 
FORMAT  (1SX, 


1 


S3H 


GO  TO  PRO 
C 

THAT  RPR  IS  IN  Till  SOLUTION  RANGE,  (RPRL,  RPRR). 

AO  IF  ((RPR  .OF.  RPRL)  .AND.  (RPR  .Lt.  RPRR))  GO  TO  HO 
RPR  =  ( RPRL  +  RPRR ) / 2 . 0 

C***A*f.ALrilLATF  TOP  EXPANSION  PRESSURE  RATIOS  FOR  THE  BOUNDARY  CALCS. 

HO  PRRlt  »  RPR 

PR  BO  IF  =  BPR.mPRUHF 
PR  BO  I  -  PR  BO  1 E  *P0  1 1:01 
PRR 1 1 aPRBOI /P  R 10 1 
PRBF= ( PRR01FAPR010F ) /PHFOF 
PRROF  =  PRR(HPAPR(TH)F 

C  I*  a  2 . 7  *  (  t  PRR  F  -1.0  I  /< GAMMA E*  1  FMNL*‘2  )  )  ) 

CO  =  -CP*(  1K1F**2-Rn**2>/RF**2) 

CA*»»*wRlTt  THE  amKFOT  TRIAL  SOLUTION  DATA. 

CALL  OUT  1  M(  I  RPR,  A.EMNl 1  ,PR1(H  .PKBIII  ,PRB1I  ,  PRU1  (II  .  TROFI  ,PR1I  C. 

I  FMNT  P  .  PR101  F  »  PROfll  F  .  PRO  1 E  t  EMNF  «  PREflF  «  PRBflF  ,  PR  0 1  C  t 

?  PR  BE, NPRINT  ,BU1K(1,FNGRU.N SHAPE  i 

C***«*TIU  INTERNAL  CONSTANT  PRESSURE  BNDRY  IS  CALCULATED  FDR  (PB/POI). 

70  CALL  ACPRSt  GAMMA  1  , EMS11  , PRftni  , X 1 1 , K 1 1 , BET A1 1 , RE  1 , I BPR , NP TS 1 . 

1  NPRiNT,  1  .LIMIT  I  ,I1PT  I  .NSHAPE  I 

c*t**«THE  EXTFRNAL  CONSTANT  PRESSOR)  RNDHY  IS  CALCULATED  FOR  (PB/POlt). 

30  CALL  ACPBSIGAMMAF,EMS1E,PRB01E.X1E,R1E, BF T A1 E , RLE , I  RPR , NP T S E , 

1  NPRiNT i?tL*M1TF  5RPTt  .M SHAPE  1 

C**#**IF  IMPINGEMENT  OCCUHSi  THE  IMPINGEMENT  POINT  AND  THE  FLUW 
C  PROPERTIES  DOWNSTREAM  OP  THE  RECUMPKP SS ! ON  SHOCK  SYSTEM  ARE  FOUND . MA I N l l SO 

C  MAIN! 160 

CALL  CROSStGAMMAI .BPT I .LIMIT  I .GAMMAE , BPTF.LIM1TE.  MAIN1170 

1  NIC.  NEi  ,NST0P,TJML1  , T JMLE , PRSHUK ,  NPRINT)  MAIN11B0 

IFIRFCOMP+PRSHOK  .LT.  1.0  .AND.  NSTOP  .EO.  1)  NSTOP=?  MAIN1190 

GO  TO  (90,B2,flA),  NSTOP  MAIN1200 

INV1SCID  SOLUTION  TRIAL  CASES.  MAIN1210 

C  NUMBER  OF  NO  SOLUTION  TRIALS  =  NOSMAX.  MA1N1P20 

C*“'**NO  SOLUTION NO  IMPINGEMENT  OH  INADMISSIBLE  SHOCK  SOLUTION.  MAIN1230 

82  RPRR -BPR  MA1N12A0 

GO  TO  Of.  MA1N12M) 

C*****N(I  SOLUTION - SHOCK  SYSTEM  OOESNT  EXIST  FOR  TRIAL  VALUE  OF  BPR,  MA1N1760 

B  A  RPRL “BPR  MAIN1770 


MAIN  GAO 
MAIN  o50 
MAIN  Gt  0 
MAIN  670 
MAIN  GEO 
MAIN  690 
MAIN  700 
MAIN  710 
MAIN  720 
MAIN  730 
MAIN  7  AO 
MAIN  7G0 
MAIN  760 
MAIN  770 
MAIN  7 HO 
MAIN  790 
MAIN  POO 
MAIN  RIO 
MAIN  H20 
MAIN  R30 
MAIN  RAO 
MAIN  RSO 
MAIN  R60 
MAIN  R70 
MAIN  BBO 
t«t***ti  /IMAIM  R90 
MAIN  900 
MAIM  910 
MAIN  920 
MAIN  930 
MAIN  «A0 
MAIN  9H0 
MAIN  960 
MAIN  970 
MAIN  9 HO 
MAIN  990 
MAIN) 000 
MAIN1010 
MA  INI  020 
MA INI  030 
MA IN10A0 
MaINIOSO 
MA 1N1 060 
MA IN1070 
MAIN) OBO 
M A  I N 1 09  0 
MA INI  100 
MA INI  1 10 
MA INI  120 
MAIN1130 
MAI  Nil  AO 
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APPEND  I  X  A  •  TWO  STREAM  AXISYMMETRIC  BASS'  PRESSURE  PROGRAM 

MAIN  PROGRAM  (TSABPP-2)  PAGE  A-  '1 


86  BPR  =  ( BPRL+BPRR  ) /2. 

NOSOLN-NOSULN+l 

I  MNOSOLN.lt  .NUSMAX  )  GO  TO  20 
(*****HAXIMUM  NUMBER  OF  NO-SOLOTII1N  TRIALS  F  XC  F  FOLD. 

C 

WR I T  F  (6,88) 

88  FORMAT!//, 

1  1 SX ,  ARM  *+«MAXlMUM  NO.  OF  NO  SOLUTION  TRIALS  FXCFFDFO*'*  , /, 

GO  TO  260 
C 

C#»**»START  BASF  PRFSSURF  AN!)  TEMPERATURE  RATIO  1TFRATI0N  LOOPS. 

90  TRRO I =TRU  F I 
I  E  =  1 
NF=  1 

100  TRBC1E-TRB0I /TROF  I 

^♦♦♦♦♦CALCULATION  A  NIT  OU I  PUT  OF  TURBULLNT  MIXING  Rt  SUL  T  S. 

CALL  T JMt  XI  GAMMA  I , GC I , BPT I  I i , N IC 1 , TRBO I , T jML I , 

1  GAMMA F ,GCF ,BPTF I  3, NFC ) , TRBOfc , T JMLF , 

2  RlI,FMSlI,HFTAi[,HPII(2,NIC>,  PRSHnx., 

3  PniFOI  ,TROFI  ,Rfc CI1MP, BLUR, FNGR) 

CALL  0UT2M(  PR  RE  ,PRBl  1  •  PROFIT  I  ,  TRBOb  ,  TRBO  I  ,  TROfc  I  ,  ROIL  ,  PR  1 1  t , 

1  '  BLOK  ,  FNGR ,  NPR  I  NT  *C  P » Cl) ,  BLDRO ,  b  NGRO  ) 

C*****SFT"UP  ITFRATION  LOOPS  TO  FIND - 

C  NTYP  F  *  I  1  NONI  SOFNFRGFT  IC  )  ,  TRBIII  SO  THAT  ENGR-ENGRO. 

C  NTYP  L  =  2  (NUNISOCNFRGFT IC ) ,  TRBOI  SO  THAT  BLDR«8L0R(1. 

C  NTYPE'3  (  I  SOLNK.lt  IC )  .  CONTINOF  TO  BASF  PRESSURE  ITFRATION  LOOP 

C  TO  F I  NO  BPR  SO  THAT  BLOR  =  BLORO. 

C 

GO  TO  (124,126,210),  NTYPfc 

(•♦♦♦♦♦TRBOI  ITERATION  LOOPS  FOR  THE  NON- 1 SOENE RGF T I C  CASE. 

1?4  VAR= I ENGR-ENGRO > 

GO  TO  130 

126  VAk  = (BLDR-BLORO) 

130  GO  TO  ( 140 , 14? 1 ,  NF 
1 40  DATA ( I E, 1 ) =TRROI 
DATA  I  IF ,2 ) 'VAR 

(■.♦♦♦♦♦ITERATION  FOR  TRBOI  SOCH  THAT  ENGR-ENGRO  OR  BLOR'BLDRO. 

C  (NOTE  THAT  TRBOI  IS  RFSlP.ICTEl)  TO  THE  RANGE  (TRUE!, 1.01  ) 

C 

142  CALL  1TFRI TRBOI ,DTRBOI , I.OF-4, 1.0, VAR, 0.0,  l . OE-4 , I E , NE , 

1  TRBO IN, VARN,TKB0IP,VARP,NSGNV],NSGNV?) 

I  F ( TRBOI  — 1.0 )  140, 180, 160 
140  GO  TO  (  100  ,  10  ) , 200  I ,  NF 

(^♦♦♦♦EXTRAPOLAT I  ON ,  IF  NECESSARY,  FUR  TEMPERATURE  RATIO  TRBOI 
C  SOCH  THAT  ENGR-ENGRO  (1R  BLDR-BLOKU. 

C 

160  I  l  =  I  F—  1 

IFIABS  (DATAI 1 ,?))-ABS  ( DAT  A  I  1 1  , 2 )  1 )  170,170,180 

1 70  I  -  1 
I  I  -  2 

GO  TO  190 
1B0  I  =  I  F  1 
I  I  ~  I  f 

I  PC)  RATIO-IOATA!  1  I  ,  1  l-DATAI  I  ,1  1  )/(!)ATA(  I  I  ,21-OATAI  l  ,21  I 
TRBOI- f)ATA(  I  ,  1  )-RATIO* DATAI  I  ,2) 

200  GO  Tn  12)2,204),  NTYPF 
.’)?  T  RFO-TRROI 
NT  YP  F  =  2 
GO  TO  90 
?')  4  TR  B0=  TR  BO  I 
NTYPF-1 

F  '■>♦♦«  END  TRBOI  ITFRATION  LOOPS. 

C  »»  ♦♦♦cilNT  I  NUF  THE  RASE  PRFSSURF  RATIO  !  BPR  I  ITERATION  LOOP  TO  FIND 


M A  I N 1 2  BO 
MA  I  N 1  2 90 
MA I N1 300 
MA INI  3 10 
M  A  I  N 1  3  2  0 
MA INI  330 
MA INI  340 
MA INI  340 
MA INI  360 
MA INI  370 
MA I N1 380 
MA INI  390 
MA I N1 400 
MA INI  410 
MA IN1420 
MA INI  4  30 
M A  I N 1 440 
MA IN1440 
MAIN1460 
MA IN1470 
MAIN1480 
MAIN1 490 
MAIN! 400 
MA INI  410 
MA INI  420 
MA INI  430 
MAIN1440 
MA INI  440 
MA INI  460 
MA INI  470 
MA INI  480 
MA INI  490 
MA1N1600 
MAIN1610 
MA INI  620 
MA IN1630 
M A  I N 1 640 
MA I N] 640 
MA IN1660 
MA INI  670 
MA I N1 6B0 
MA I N1 690 
MA INI  700 
MA INI  7  I  0 
MA INI  720 
MA IN1730 
MA INI  740 
MA INI  740 
MA INI  760 
MA INI  770 
MA INI  7  MO 
MA INI  790 

jMJD 

MA INI  BIO 
MA IN] R?  0 
MA INI  8  30 
M  A  I  N 1  P  4  0 
MA  I  N 1  M*.() 
MAIN! R60 
M A  | N 1 M  70 
MA f N \ RHO 
MA I N] R^O 
"A  I N 1 000 
MA 1 N1 9 ] 0 


APPENDIX  A. 
MAIN  PROGRAM 


TWO  STREAM  AXISYMMtTRIC  BASE  PRESSURE  PROGRAM 
( TSA8PP-? ) 


PAGE  A-  A 


C  RPR  SUCH  THAT  l)VAR  =  0. 

C*****t;{}R  jilt  NI1N-]  SDENERGFT  1C  CASE. 

I) VAR  =  I  TR  rn-TRRD) 

r.u  to  ?ia 

C*****H)R  THE  1SOFNIHGET1C  CASE. 

2  10  DV  AR  *  I 13 LOR 0-8 1  DR  ) 

?14  SIGN  =  (TVAR/ARS(DVAR) 

I  M  SIGN)  ?1R,?IH  ,  ??2 
218  BPRR*HPR 
GO  10  2  ?6 
22?  RPRL=BPR 

?  ?6  IF! I  RPR  - 1  )  ? 10  *  230  *  2  34 

233  !)  R  P  R  = { BPRR-RPRL ) /?. 

GO  TO  2  3 H 

234  SIGN*  1.0 

I1RPR*  -  (  ( IV'R-tiPR  1  !  /  ( I'VAR-nVARl  )  I  *I'VAR 
238  RPR  1 "RPR 

OVAR  I  =  OVAR 

C*«***I TER  AT  ION  FOR  RPR  SUCH  THAT  l)VAR  =  0. 

CALL  ITFR  (RPR  ,0RPR  ,  1  .OF-4,  S  1GN  ,  OVAR  *0.0*  1  .Ot'-S,  I  RPR,  NRPR, 
1  RPRN,nVARN,RPRP,OVARP,NSGNBl .NSGNB2) 

GO  TO  (?C ,20 ,242),  NRPR 
C ;*****SULUT I  ON  FOUND. 

24?  Gil  TO  !?'.'J,?S0,?S4),  N1YPF 
C*****WRITF  SOI  111  ION  DATA. 

C 

2S0  WRITE  (G.2S2) 

2  S  2  FORMA!  I//,  20  X  ,  32H  ***N0N- I SOFNF RGET 1 C  SOLUTION*** 

GO  TO  2‘.  U 
C 

2S4  WRITE  (G, 2S6) 

2  SG  FORMAT!//,  27X,  2RO  *♦* I SOFNt RGE T I C  SOLUTION***  ,/ 


2  SR 


1 


CALL  OU1 2MI PRRt , PRH 1 1 , PRO!  01 , TRROF.TRBOI , TROE I «  P  RO 1 C  , PR  1 ) F , 
RLDR  ,  l  NGR ,  1  ,  CP  ,  CO  ,  RLORI) ,  ENGRO  ) 

1 F { NPUNCH )  10,10,270 

C*****piJNCH  SOLUTION  OATA. 

2 GO  IFINPIIN  H)  n, 10, 26b 
C 

Z6S  WRITE  (  i  » 2  G  7  )  PROIF,  PHlIt,  PRRF 

267  FORMAT!  ’Fll. 4, SX, 11HN0  SOLUTION,  SX,  40  Pli/Pl  =  FR.  S ) 

GO  10  2  :0 
C 

2  70  R 1  I F"R 1 1 /RE 

C*****CT - 1/UA  (THRUST  COEFFICIENT). 

CT  =  < (RlIE**2)/(0.b*GAMMAF*(FMN  E*» 2 ) )) *  I  PR  1 1 F * t 1 . 0+G AMMA I  * 
1  (FMN1 I **?))- 1.0) 

C*****RMF JfT-TO- FREEST REAM  MOMENTUM  FLUX  RATIO. 

RMT  =  ( GAMMA  I  * ( EMN1  1**2  I *| R 1  I E **2 ) * PR  1 1 E ) /  ( G AMM AE* ( F MNF ** 2 1  I 

c 

WRITE  (7,272  )  PRO  I F , PR  1 1 E , PRRf , CP , CO, R ME , CT 

27?  FORMAT ( ?F 1 1 .4 ,  SF 1 1 .  b ) 

C 

2 HO  IF  (NCAS1  .EQ.  NCASE )  WRITT  (T,?82)  ! A( I  1 , 1  =  1 , 20 ) 

28?  FORMAT  (  23A4 ,/, 

l  +  +  +  *  +  +  +  *-»+  +  +  +  +  +  +  +  +  + -,  +  +  +  +  ♦  +  +  +  +  +  •,+  +  +  +) 

C 

i.****'GO  in  next  cast. 

GO  TO  HI 
FNO 


MAIN1920 
M  A  1  N 1  9  3  0 
MA I N) 940 
MA1N19S0 
MA INI 9G0 
MA1N1970 
MA INI 9R0 
MAINl 990 
MAIN2000 
MAIN2010 
MA  I  N?  02  0 
M  A  I  N  2  0  3  0 
MAIN2040 
MA IN20SO 
MA I N20GO 
MA1N2070 
MAIN2080 
MA  IN?  1)90 
MAIN2100 
MAIN2110 
MA I N? 1 20 
MAIN2130 
MAIN? 140 
MAIN21S0 
MAIN? 160 
MAIN2170 
HA  I  Nl ?  1  80 
MA IN21 90 
MAIN??  00 
MA I N2? 1 0 
MA IN???0 
MA IN??30 
MAIN2240 
MA 1 N2?  SO 
MAIN2260 
MA I N??70 
MA I N??  80 
MAIN??90 
MAIN? 300 
MA 1 N?  3 1 0 
MA IN7320 
MA IN?  330 
MAIN2340 
MAIN? 3 SO 
MA IN? 160 
MA I N?  370 
MAIN? 380 
MAIN2390 
MAIN? 400 
MA IN?410 
MA IN?4?0 
M  A  !  M  ?  4  3  0 
MAIN2440 
MAIN24S0 
MA  IN2460 
MA I N?  4  70 
++++++MA IN? 480 
MA I N?  490 
MAIN2500 
MAJN2S10 
MMN?S?0 
M  A  I N  ?  S  3  0 
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1  IINDI  illlNS  ANU  WIIMI  IKY. 

1  NOU 
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APPFNIHX  A.  TWO  STRFAM  AXISYMMFTR1C  BASF  PKFSSIIRF  PROGRAM 
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TWI1  STREAM  AXISYMMfTKIC  RASE  PRISSHRI  Plillf.HJH 
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1  (  1.0-1  (  GAmma-1  .0)/(  G  amm  A i  1 .  n  )  )  *  (  r  MS. 

I  MSMNI  {  FMN,r.A»MA  )  =  S0RT  H  P.  ■»*  (  r.jHMJt  1 .  n  )  *  ( F  mm#*  7  )  )  / 

1  I  1.0  +  0.  h*  (GAMMA-  1 .0  )  *  (  f-MN**?  ]  )  I 

f’RMNI  I F  MN, GAMMA  1  =  ( 1 .0  + ( I GAM^A- 1 .0 ) /7.0 ) * (  tMNtt  7  )  1 1  : 


( -GAMMA/ (GAMMA- 1 .0 ) ) 


CGMMIIN  PMR,  f.HARI,  CHARE,  PI,  P2  ,  P.3 

COMMON  /DAT  A  I  fl  /  GCI  .GAMMA]  ,FMS 1  I  , XI  I  ,R 1 |  ,  HE T A1  |  , 

)  GCF  ,  GAMMA1  ,  FMS  1C  .  X  IF  ,R  IF  ,  HE.  T  A1  f  .  nR‘l  1  OF  , 

?  TROF  I  ,PR1  1  F  .RI  COMP,  A,  FMN1  I  ,PR  in(  ,  (  M\,]  l  ,  PR  101  f  , 

.1  NPR  I  NT  ,  NC  A  S  1  ,  NC  AS17  »  BLDRO,  FNC.RO ,  R  F  , I MNF , PRF0>  , 

A  M  PUNCH,  PROF  01  ,  PRO  I  F  ,  PCI]  HI  1  ,MSMA<>  F  ,  NR  T  c.  F  ,  PR  II  1  F 

DIMENSION  PMit(  )00,4,?)  .  CHARI  IF.,  30)  ,  C><  AR  F  (  4  ,  3<>  )  ,  (>](>..),  I’  7  t  6  )  , 

1  P3(4),  A  (  2  0  )  ,  PRI20),  8KU(?n>,  EHII(?n),  RPT<4,30) 

NAM  I  L  I  S  r  /  1 1 A  T  A  /  A  ,  X  II  ,  Rl  I  ,  UFT01  I  ,(  C  I  ,GAMma]  ,  tMN  1  I  ,  NRHAPF  ,  X2I  ,  R  P  f: , 

1  BFT02F  ,  X  ]  H  ,  R  1  F  ,  GC  fc  » GAMMAF ,t  MNF  , T RO F | , R r COMP ,  I NOPT 

7  NPR  INT  ,NCASF  ,NPONCM,  KPRFSR  ,  PR  ,  PRO  ,  I  RFi 

r. 

I F  ( NCAS1 • N I .0 )  GO  TO  HO 

f  **<!**  1  N  |  1  J  A  L  I  7  F  T  HI*  *1)1:  F  AOLT  CONFIGURATION*  OATA. 

r**fc*#HIR  1HF  INTERNAL  STRFAM-- 
X  1  I  =0  .  ) 

R II  =  1  .7 
R  F  1  0  1  I  -0  .  T 
C,C  1=43.34 
Gamma  I  *  1 . 4 
F  M  N  1  I  *  )  ,.) 

f.  *<■**=»  for  TIIF  EXTERNAL  STRFAM-- 
NSHAPF  =0 
X  2  F  =0 . 1 
R  ?  F  =  1  .  3 
01  TD2F0.1 
X  1  F  =0  .0 
R  1 1  -  1 .  ) 

BETDl t=0  .0 
RFTA  IF*')  ,3 
gc  1=43.34 
GAMMAF -  1  .A 
FMNl  :-u  .0 
R  FC  I  imps')  .  ) 

TKOF 1-1.3 

1HF  HLtfcl)  AND  F  NF  RGY  RAMOS — 

NC  A  5,  l:  =0 
no  H  1=1,73 
PRO  (  I  1-0  .0 
R  FROIT 1=0.1 

INPOT/OIJTPUT  OP1  IONS  — 

I NOPT  -  1 
NPR  I  NT  =  -  1 
NPUNCH= 1 

f ****’>  INPUT  OATA  PRESSURE  RATIO  (POl/PE  IS  THE  DEFAULT  VALUE  I  — 

K  PR  E  SR  =  1 

f  t *  ***R  F AO  INPUT  OATA  BY  NAMELIST  /DATA/  . 


R  F AO  (5, OATA) 
IF ( INOPT.NF .?) 


GO  TO  44 


Vt-*S£RIA0  INPUT  DATA  FOR  OPTION 


i INOPT-Z) . 


RF  AO  (  4 ,  10  ) 


FORMAT  (20 A4, /,6F 10.6, I  1 1 
I F INSHAPE .NI .0 )  GO  TO  30 


(A(  I),  1  =  1,20), 

XII,  R1I,  BET  0 1  I ,  GCI,  GAMMA],  FMNII, 


INOIH  ?nt) 

I  '-noi  7  Ro 
inoui  in 

INOOl 310 
INUU1 320 
I  NO")  330 
T  NOI1 1  340 
I N0U1  3!'0 
INOOl ’40 
I N0U1 370 
I  NOI  1 1  3  HO 
I NOU 1 3°0 
1  MO 01 400 
1 N001 4) 0 
INOOl 4?0 
1 N0U1 430 
INOOl 440 
1  NfTOl  4  ‘-0 
,  INOOl 440 
INOOl 470 
INOOl 4H0 
I  NOll  1  4R() 
1  NOIIl  Ago 
INOOl 410 
I N0U1 420 
1 NOU] 430 
INOOl 440 
I N001 440 
INOOl  4  hi) 
I N001 470 
INOOl 6B0 

I  nou  1  s«»n 
INOOl ADO 
I  Nlllll  A10 
INOOl 620 
INOOl 630 
INOO).  640 
I NOU 1660 
INOOl 660 
INOOl 670 
INOOl 6 HO 
1 NOU 1 6 VO 
INOOl 700 
INOOl 710 
I  Nlllll  7?0 
I  NOLI  1  7 30 
INOOl 740 
I  NOIIl  760 
INOOl 760 
INOOl 770 
INOOl 7 RO 
1 NOU 1790 
1N001B00 
INOOl BIO 
1NDU1B20 
IN0U1 030 
1N0U1 040 
INUU1 860 
IN0U1 860 
1N0U1 070 
INOOl BBO 
I  NO'J  1  H90 
I  MHI1  900 
I NOU 1910 


A  P  P 1 N 1 1 1 X  A.  TWO 

ST  RF  AM 

AXISYMMFTR1C  t\ A S 1: 

PRFSSORF  PROGRAM 

SURR0UT1NF  I  MOOT 

(TSARPP-?  1 

PAGC  A-  H 

r 

1 NOU 1 4?  0 

Rl  All  (  b,  ?3  ) 

XI!  , 

RIF,  GCF ,  GAMMAF, 

FMNF 

IN0U1 R30 

?0 

FORMAT  (SI-10. M 

I  NOLI  1  040 

GO  1(1  40 

IN0U1 9S0 

c 

I  NOLI  I960 

n 

R  F  AO  (S,3?) 

X  21: , 

R?F,  RFT112L,  X1F, 

Rlt,  GCF,  GAMMAF,  FMNF 

INUU1 970 

i? 

FORMAT  (RFID. ft) 

1N0LI19B0 

c 

I NOO 1  PRO 

'*c> 

R  F  AO  ( S , 4  ? 1 

TRIH- 

I,  RFC.OMP,  NPR1NT, 

NCASF,  NPLIMC.O,  K  P  R  F  S  R 

I  N01J2000 

4  7 

FORMAT  (i'RlO.ft, 

/, 1?,  13 

,2111 

I NOU?  0 1 0 

GO  in  SO 

I NOU202O 

C  **  **«C  ALCIII  AT  I  ON  IIP 

PROGRAM 

OATA. 

1NOU7070 

*♦4 

1 F ( 1NUPT.GT.21 

WRITS 

((i,46)  A 

1 N0U2040 

At. 

so 


FIIRHATOHI,  ///////////,  ?0X,  20A4) 

RI'UII=  0  .0 1 74S37*flFT01  I 
FMSII  -  FMSKNFI  fMNU  , GAMMAI  I 
PRltll  *  PRMNF  ( I  MNU  ,  GAMMAI  I 
I  FI  !  NflPT  .  Nb  •  3)  (.1)  TO  S4 

ULA1ION  Of  THl-  I  NT  I  PNAL-FLOW  CONST  AN1 -PIU- SSURF  RnuNOAR  I  f:S 

mi  •'?  i  -  i  ,  nc.  asf 

S?  CALL  AC.PKSl  GAMMAI  ,  IMS  1  I  , PR  (  1  )  ,  X  11  , R  1 1  .  (IF  T A  1  1  ,  7 . 0*R  1 1  t  T  ,  NP 1 
1  L  I«  I  T  ,  HPT  .NSHAPFI 

NC AS f  O 
R  FTURN 

C»  *«-*#cnNT  I  Nil  AT  1  ON  (IF  PROGRAM  OATA  CALCULATION. 

na  nil  =  ?.o*Rli 

IIU  ■  2.0‘R1I 
XII  nil  =  XI I /n IF 
(-MS*  *  FMSMNI  <  t  MNI  ,GAMMAI) 

PRI  Ilf  »  PRMNF  (  FMNF  .GAMMAI  ) 

R  I  F  l  *  R  1!  /R  1  F 
I  MNSHAI’I  .NF.1  )  GO  TO  Sf, 

C*<,***|IN1  FORM  I  XT FKNAl  FLOW  WITHOUT  A  IUIATT  AIL. 

R T  *  RIF 
(UNO  -  F  MNI 
FMS1I  =  IMS  P 
R R 101 1  *  PR  F  OF 

proiop  =  i.i 

GO  TO  SR 

C***?eAITmp,llllV  (II  FORF  THi  FXTFRNAI.  STRFAMMS  SIPARATION  POINT. 

S  A  (0  1  A2I  ^0  .0  174S-)?«  Ill  (l)?F 

CALL  ARTS! GAMMA F ,  PMSI  ,  X  2F  ,  R?  I  ,  |U  T  A?F  ,  X  1 1  ,  R  1  F  ,  MSH  A*' F  , 

1  1  ,NPT  SI  .NFRRllR  ,CI)RT  I 

C*c*«*$|  T  -UP  I1ATA  FOR  FXTtHNAL  STRIAMIOS  SFPARAT10N  POINT. 

X1F=C.HAR|  (1,11 


*  1  ,  1 1 


IN0U20S0 
iNnupotn 
INIUI7070 
1 N0U20R0 
]ND0?n«0 
lNQU?ino 
IMOll?  110 
INCKI2120 
TMflU?  1  TO 
I NOO? 1 40 
INCH)?  ISO 
I NOO? ICO 
I NOO? 1 70 
INOO?1 HO 
I  NOO? 1 PO 
INCRI??00 
1  NOD?? 10 
1  NOU??  ?(1 

inoo??:*o 

l  N0LI2  ?  40 
I NOU?  ?  SO 
I  NOLI?  ? CO 
I NOU?? 70 
I  NOO?  ?  110 
1N0U279O 
1 NOU? TOO 
I  NOtl?  X 1  0 
I NOO? 3?0 
I  NOLI?  710 
1  NOll?  ISO 
1NU073SO 
1NOU2360 


R I f  «COARF  (  ?,  1  ) 

IMS  IT  =  CHAR  I  (3,1) 

FMN1I  =  FMNMSF I  I  MS1 F .GAMMAF ) 
IUTA1F  =  CHAR  F  (  4 , 1  1 
H  F  T  0  1 1  =  S  7  ,  ? PS  77 OS* HI  T  A 1  F 
PR  101  F  -  PRMNF  I  l-MNl  F  ,  GAMMAF  I 
PRO  1  OF  -  I  .) 

Rt  =  H?F 
l)?F  =  2.CMR2F 
X?FO?F  ~  X2F/o?F 
XII n  ?  C  =  X1F/07F 
OR  1 1  ?  F  -  011/021 


I NOO? 370 
] NOO?  3RD 
1 NOO?  TOO 
1 NOO?  400 
I  NOll?  4  1  0 
I NOU? 4? 0 

i nou?  4>n 
1 N0O7440 
INOO24S0 
1  NOll?  4  ftO 
1NIUI?  4  70 
I N0074H0 


SR  I F ( 1N0PT ■ Nl .4)  GO  TO  ft? 

C*«-***CALGI/LAT10N  WITH  OR  WITHOUT  AN  AIIIRROOY  OF  THI  f  XT  FRNAL-H.OW 
C  CONSTANT -PRI  SStJRI  HOONOARIFS  ONLY. 

C 

I  F  INCAS*  .1  O.  )  )  P-C  TURN 

no  f  .o  l  - 1 ,  nc  a  si 

ft')  call  AC  PEI  S  (  GAMMAF  ,  I  MSI  t  ,PR  ( 1  )  ,  v  "  ,R  IF,  flF  TA1I  ,  0.  ?  S»R1  F  ,  1  ,  NPT  ,  + 1 , 
1  ?,L  1MIT  ,flPT  .NSHAPt  ) 


INOU?4ftO 
1 NOU7SOO 
1  NOU?  SI  0 
1  Nl  10?  S?  0 
1  Ml  10?  S  30 
IN0U7S40 
IMOll?  RSn 
I  Nil'  >?  44(1 


fit 


APPFND1X  A.  TWO  STRFAM  AXISYMMFTRIC  RASI  PRF  S  SURF  PROGRAM 

SIIBROUTINF  1NOIIT  (TSARPP-?) 


NCASF=3 

RETURN 

c  +  <.<,*tHECnMPRFSSION  COEFFICIENT  OFT FRM InATIUN. 

6?  I  F  (RFCOMP.  (,T  .  I  .at -C3  )  GO  TO  66 
IF ( NSHAPF ,NI .0 )  GO  TO  64 
(;<•<■  <5  <•-*  FOR  CYLINDRICAL  AF-T  F  R BOO  I  F  S . 

RtCOMP  =  .4H3  +  1.0HRFRIF1  -  0 . 874  *=«  1 1  1  *♦  ?  ■*  0. 303*R  II  1**3 

GO  TO  66 

f  -OR  BOAT  T  A  1  L  F  O  AFT  F.KHOOI  PS  . 

64  RICOMP  =.  1.0 

(-  **»»  *PUNCH  OUTPUT  HEADINGS  AND  CAM  DATA. 

66  I F I NPUNCH. fc 0.3 )  GO  TO  HO 


WRITF  (7,68)  A 

68  FORMAT  I  70 A4 1 

WRITF  (7,7)1  LMNII,  HtTDII.  Oil,  GC I ,  GAMMA  I, 

tMNF ,  BFTD1F,  OIF,  GCL,  GAMMAE, 
xi  inn,  Will,  RTCOMP,  TRnF I 

FORMA!  (  9X  ,  3HM1  I  ,  HX  ,  6  FIR  FT  A1  I  ,9X  ,  3  HO  1 1  ,  1  OX  ,  3HGC  I  ,C>X,6HGAMMAI  ,  /  , 
F)3.3*F13.2»PI3.4,H3.2»F13.3«//, 

13  X,  2HMF  I  (IX  ,  6HH  tT  A1  F  ,9X  ,  3 HO  IF  ,  10X  ,  3HGCF  , 9X , 6HGAMMAE , /, 
F 1 3  *  3 ,  13,7,F13.4,F13.2,F13.3,// 

7X  ,  7HX  l  1  /  OIF  ,6X  ,7H01  1  /Dll  ,  7X  ,6FIHt  COMP,  6X  ,  7HTUE/T0  I  ,  /  , 
F13.2,F13,4, IX, 2(13.6,//  t 


7) 


1 


IF  INSHAPE .10.0 )  GO  TO  74 

WRITI  (7,72)  NS  HA  PI ,  X2LD2F,  Bill)/.,  X1L071,  DR1E2E,  BITD1F 

77  FORMA!  (  SX  ,  1  7HR0ATT  A  I  L  -  NSHAPl  ,  4X  ,  7HX  FT  /l)2t.  ,4X, 

1  7HTHFTA7F  ,SX,6HXR/02l  ,  BX , 6HUB/021  ,  NX, 

2  7HTHF  T  A 1 1  ,  /  ,  1  9X  ,  1 1  ,  ?X ,  *,F1 1 . 3,  / / , 

3  6 X , 6HPD I/PE,BX,6HP1I/PI  , 6X , BMP II/PF , 7X , 3HCPB , HX , 3HC0H , HX , 

4  30RMF , HX , ?HC  T ) 

GO  TO  BO 


74  WRITI  (7,76) 

)6  F:(1R  MA  T  (  4  X  ,  7HP0  I/PlF,4X,7UPll/PU»BX,f>HP8/Pll,7X,3HCPfi|HX,3HC0ll, 

1  HX, 3HRMF , HX , ?HCT ) 

(. 

HO  NCASl  =  NCAS1  *  1 
r>t***TRANSI  l-R  OR  RTAO  NFW  CAM  DATA. 

GO  TO  (  R ?  ,  H 4  )  ,  1  NI1P  1 

H?  PR  AT  I  0=  PR  I  NC  AS!  ) 

HLORO*BRO(NCAS1 ) 

FNGRO=FRO( NCASl ) 

GO  TO  BB 

(' 

H4  RIAO  (6, BE,)  PRAT  10,  HI. PRO,  FNGRO 

86  FORMAT ( 3f 13 . 6) 
f 

88  II-tKPRfcSR.NI  .1)  Gil  TO  90 
i<*»**f:()R  PH/Pl  (PR1IF)  INPUT. 

PR  1 1  F  “PR  AT  1(1 
PR()IF  =  PKlIfc/PH101 


(,l)  TO  9? 

r<*«*»FIIR  POI/PF  (  PRO  I  F  )  INPUT. 

93  P  R  1)1  F-PRAT  10 

PR  1  I  I  -  PROIltPKlOI 

r  t ALGOL  AT F  VARIOUS  PRFSSURF  RATIOS  FROM  NFW  CAST  DATA. 

9?  PKUFUnPRlOI  /  (  PHI  Ob  *  PR  1  IF  ) 
ponni  -PROLOi’»FROinF 
PR  1 1  1  I =  PK 101 / (POIFOI tPRIOll ) 
p«ir-F  =  PRinir*PRoioi  /prfof 


IN0U2H70 

IN01J25R0 

IN0U2S90 

IN002600 

I N00261 0 

I  NOW? 62  0 

I N0U7630 

INOU7640 

I  NOLI2660 

I  NO  1 12  660 

I N0U2670 

IN0U26B0 

I N0U2690 

IN002700 

IN0U2710 

IN0U2720 

IN0U2730 

IN0U2740 

1NUU27S0 

1  N01J2  7  60 

1 NUU2770 

1NOU27HO 

1NOU2790 

IN0U2H00 

IN0U2HI0 

I N0U2  B?0 

INOU2B30 

1N0U2H40 

1 N0U2BSQ 

IN0U7R60 

1 N0U2H70 

I N0U2  P  HO 

I N0U2B90 

I  NO U?  9 00 

1  N0U291 0 

INI1IJ2920 

INUU2930 

IN0U2940 

IN0U29M) 

I  NOLI?  960 
IN0U297O 
lN0U29Hn 
IN0U2990 
IN0U30D0 
I NOU3010 
IN0U3020 
I  N003030 
I N0U3040 
INOU30BO 
INUU3060 
INUU3070 
IN0O30H0 
I  N0U3090 
IM0U31 00 
IN0O3110 
IN0U31 20 
1N0U31 30 
IN0U3140 
I N0U31 SO 
IN0U3160 
IN0U3170 
IN0U31B0 
I N0U31 90 
1  NIIU32  00 


67 


AE'PINDIX  A.  TWO  STREAM  A  X  I  S  VMM  f  1  R  1  C  BASF  PRESSURE  PROGRAM 

SUBROUTINE  INPUT  (TSABPP-2) 


PAGE  A-10 


C***„*PRIN7  CASl  DATA. 

WRITE  (6,94)  (AM), 1-1,20),  NC  A  S  1 

94  FORMAT (lHl , 6X , 20A4, 20X, 16HPR0RLFM  NUMBER  1  3  ,  /  /  ) 
C 

I  F  (  NSHAPF.  II),  T  )  OP  Til  IPO 
GO  TO  MOO , 120 , 1401 .NSHAPE 
C 

ion  WRITE  (6,110  I 

in  format  I  ?9X ,  2 1 H  ***I1GIVE-  boattail***  //> 

GO  TO  160 

c 

120  WRITE  (6,100) 

100  FORMAT  (??X,2NH  ***PARABUl.  IC  BOAT  T  AI L***  //) 

GO  TU  160 
C 


140  WRITE  (6,160) 

ISO  FORMAT  (2RX.23H  *»*C('N1CAI  BDATTAIL***  //) 


C. 


160  WRITE  (6,170 1  X?F,  R2t,  1HT02E.  EMNfc,  COOT,  PR1EE 

)70  FORMAT  (1SX.6H  X2E  =  ,F6.3,7X,6H  R2b-  ,F6.3,4X,14H  BETA?)  I  OtG)  -  , 

1  F7. J , 16X.PH  EMNE  *  ,E7.4,  4X,HH  COST  *  ,F6.3, 

2  7X , 9H  PIF/Pt  *  F7.S,//) 

C 

1«0  WRITE  (6 , 191  )  NO  A  SI  ,  GAMMA  I  ,  GC  l  ,  X  1  I  ,  K  11  ,  B(  TO  1  I  ,-PMN  1 1  ,  EMS  1  I  ,  PR  10 1  , 

1  GAMMAE  ,GCE  ,  X1E  ,R  IF  ,  BETUIE  .EMN1E  ,  (  MSI  E  ,  I’R  HUE 

190  PURMAT  (  10  X.41H  ****TW(1- S1REAM  BASE  PRESSURE  PROGRAM***'*  ,6X, 

1  10H  PROB.  NO.  I4,//,27X,?3H  ******INPIIT  DATA******,//, 

2  2HX.22H  ***INURNAL  STREAM#*.*,  //, 

3  1 6 X , VEI  GAMMA!*  F6.3,  BX.TAU  GAS  CONSTANT  *  F7.2.11H  LB-ET/LH-R, 

4  /  ,16X,6E1  Xll*  F6.3,7X,6H  Mil*  E6.3.9X.14H  BE  T  A ) 1  I  (H  G I  *  E7.3*/, 

6  1  S  X  ,  8  H  E  MN 1  I  *E7.4,4X,HH  EMSU  *E7.4,6X,10H  P  t  I /Bill  -.F7.6, 

6  /  /  ,  2  El  X  ,  2  2  H  *  *  *  E  XTERNAL  STREAM***,  //, 

7  r*X,9ll  GAMMAI  *  E6.3,  S X , 1 6H  GAS  CONSTANT  =  F7.2,11H  LB-FT/LD-R, 

U  /  ,  1 6  X  ,  6H  Xll*  E0.3,7X,0H  R  1  E  *  F6.3,‘)X,14H  Bl  TA 1  F  (  Of  G  I  =  l;  7  .  3  ,  /  , 

9  lSX.BII  I  MN  I  E  =F7.4,4X,8H  F  MS  1  E  =  E  7 . 4 , 6  X  ,  1  1 II  PlF/PIllE  =F7.6//I 


C 

WRITE  (6,2.17)  PR1IF,  TRUE  I  ,  BLURT),  ENC.RU 

200  FORMAT  I  21X.36H  ******.|iASt  PRESSURE  CASE  DATA******,  //, 

1  lBX.llH  PI  1  /PE  *  F9.4,17X,11H  Till  /HU  *  F  H .  r> ,  /  , 

2  16X,  9H  IlLORlT  *  112.6,  lhx,  40  t  NGRU  ■-  112.6,//) 


WRITI  (6,210)  KECOMP 

2  lr)  FORMAT)  IPX,  T2H  **RFC(IMPRI  SSION  CHI  IF  1C  I  I  NT  *  F6.3,  30***,  /, 

T  1  6  X  ,  6  1  H  *#*0***4.  .•*:;<■*#*'>******»*********  it*****************  /) 

r, 

RE  T  IIRN 
F  NO 


1N0U3210 
INOII3220 
IN0U3230 
i N0U324O 
I NOEJ32  60 
I NOU3260 
1NOII3270 
1NOU32BO 
1N0U3290 
I N0U3300 
INOII331  0 
IN0U3320 
1 N0U3330 
I  N0IJ3340 
IN0U3360 
1 N0U3360 
1NUU3370 
IN0U3380 
INDU3390 
]  NOIJ3400 
INOU3410 
IN0U3420 
I N0U34  30 
IN0U344n 
INOU3460 
I  NOE)  346  0 
I NOU34  7  0 
IN0U34H0 
1N0U3490 
IN0EI3600 
1N00381O 
I  NOLI 3  62 U 
I N0U3  630 
TNmi3640 
1NOII3660 
1 N0U3 660 
INOU3670 
I NOU  3  6BO 
I NOU3690 
1  NOU3(>00 
I  NO  1 13  610 
I N0U3620 
IN0U3630 
IM0U3640 
IN0U3660 
I NOU 3 660 
I NOU 3 6 70 


APPENDIX  A. 

suRRiuniNF  nmiM 


TWO  STR)  AM  AX  ]  SYMMf  TP,  )C  RASt  I  Rl- SSORF  PROGRAM 
{ TSARPP-? ) 


PAGF  A-  1  1 


CORK  OUTI  NF  OUT  )M  (  I  ,  A  ,  F;  MN  1!  ,  »  R 1111  ,  PRRO  I  ,  P  R  R  11  , PMOFOI  ,  TROT  I  ,  PRl  T  f  , 

]  FMN1F  ,  PRl 01  i  ,  PR  BO  IF  ,  PRR1  F  ,  f  MN)  ,  PR  (OH  ,  PRRO)  ,  PRO  I  I 

?  PRBF.NPRINT  ,  RU1RO ,  FNGRfl ,  N  SHAPE  ) 

*****SORROUT1  NF  WRIrrS  OUT  HEADINGS  ANO  CURRENT  DATA  ll'.l  II  F  OK  THf 
INVISCIO  FLOW  HOLD  C  Al  C  Ul.  A  T  I  (INS  . 

o-KVARl  ARl  F  S*** 


=  I-TH  VALUE  OF  1HF  INROT  BASF  PRFSSURi 
=  HEADING  CARO  OATA. 


RA  f  II',. 


FOR  llTHiR  STREAM  AT  (111, 


( F  —  1  RFFSTRFAMI. 


f-MN  -  MACH  NOMBFR. 

BRIO  »  PRF  SSORF  RATIO,  PF/PO. 

PR  1 0  -  PRISSORF-  RATIO  AT  (1),  Pl/PO. 

PR  BO  -  BASF  PRF  SSORF  RA110,  PR/PU. 

PR  B 1  =  BASF  PRISSORF  RATIO,  PB/P1. 

PR  II I  =  INPUT  STATIC  PRFSSORF  RATIO  OF  STRFAMS,  P1I/PE. 

TROFI  =  S  T  AGNA  T  I  ON  TEMPERATURE  RAT  10  OF  STRFAMS,  TUI  /Till. 

PR  OF  0 1  -  STAGNATION  PRFSSORF  RATIO  OF  STRFAMS,  POF/POI. 

NPRINT-  SFF  SOBROOTINI  *|NOUT*. 

RLORO.FNGRU  =  SPFCIFIHI  VALOFS  OF  THF  W.I  III  AND  FNIRGV  RATIOS. 
NSHAPI =  0 ,  NO  BOATTA 1C. 

=  1,2  ()((  1 - 0(‘.  I VF  ,  PARABOLIC,  OR  CONICAL  BOATTAILS. 

DIMENSION  A(?0) 

IF1NPRINTI  107,107,99 


FORMATI  1 H l ,  AX,  2  0  A  A  , 


(  A(  J  )  ,  J=  1 , 21)  i  ,PR1  IF  ,  T  KOF  I  ,  PROFO  I  ,  PKOIt  , 
BLORO  ,  I  NCR  (I ,  I 
//, 


1  IAX.A1H  ********* TWO-ST Kl  AM  HASl  PRtSSORI  PROGRAM* ********  ,  //, 

2  ?7X,?S0  ******C0RKFNT  OATA*#****,//, 

F  1AX.11H  P  1  I  /  P  F  «  F  V  •  A  ,  1  7  X  ,  1  1  H  TOt/TOI  =  Fll.S,//, 

A  1SX.11H  POF/POI  =  IP.*),  1  7  X  ,  1  I  H  PU1/PI  F  H .  T  ,  /  /  , 

A  1AX,  PH  BLORO  =  112.*),  16X,  PH  I  NGRO  -  FI?.*),//, 

6  ? ? X , 3 1 H  TKIAl  BASF  PRI  SSORI  RATIO  NO.  ,IA,/, 

7  ?  ?  X  ,  3 1 H  *-**■>*  *  *  *  *  *  *  *  *  *  o*  ,//) 

WRITF  (A, 1)11  FMN1I fPRIUI , PR  BO  I , PRB 1 1 , 

1  FMN  1 F  ,  PR  101L  ,PRHI1]F,PKB1I 

FORMAT  I  ?BX  ,  ?2H  )>»*INTIKNAL  STREAM***,  //, 

1  1  AX  ,  BH  FMNli  =  P7.A,2*)X,  ]  OH  P1I/PUI  -  I  B  .(>,// , 

2  1*>X,‘)M  PB/P01  -  FH.6,23X,PH  PB/P1I  -  Fit./,,//, 

3  ?BX  ,  2  ?  H  ***IXTFRNAL  STREAM***,  //, 

A  lbX.HH  FMNlt-  =  t  7  .  A  ,  2  A  X  ,  l  1  H  P1F/P01F  =  IH. (.,//, 

A  1  A  X  ,  9M  PB/PO  1 F  =  FH.f>,?3X,9H  PB/Pll  =  FR.h,//l 

WRITF  (A,  10?)  |MNI  ,PHF0F,PRBOF,PRHI 

)  OKMA!  (  FOX,  1711  +»*FRi 1 STRl AM***  ,  //, 

1  1 A  X  ,  7H  FMNF  =•  F  7  *  A  ,  ?  3  X  ,  4H  PF/PUF  *  FH.A,  //, 

2  1 A  X  ,  <1H  PB/PIlt  -  );  H  .  A ,  ?(>X,  PH  PB/Pf  *  Fll.A,//) 


I F ( NSHAPF )  103,103, ) DA 


1)3  WK  I  TF  (  A,  1.)  A  ) 

I'lA  FORMAT  (  ?1  X,  3?ll  *♦*  NO  BOAT  1  ATI.  BEFORE  BASI  *** 
R )  T  ORN 


WRITF  (A,1JA)  NSOAf’F 

FORMAT ( ?AX ,  ? 7 H  ;t*  HOATIAII 


NAM API  "  llr  AM  «<  * 


l'1  I  Rl  TORN 
I  NO 


nnf:''ri/ifi(iOfinnor,.inf'r.tinnonn(’nf',irip 


APPFNDIX  A.  TWO  STREAM  AX1SYRMFTR1C  BASF  PRESSURE  PROGRAM 

SUBROUTINE  ACPPS  (TSABPP-2) 


SUBROUI I NF  ACPBSI GAMMA, FMS1 , PR  AT  1  0  ,  XCO  ,  RCO  ,  BE  T  AO  ,  R  L  MT  ,  NC  A  LC  ,  NPT  S  , 
1  NPR I  NT ,NFLI)W,NBPT  S.BPTS.NSHAPF ) 

r 

Ct****^Xl SYMMETRIC  CONSTANT  PRFSSURF  BOUNDARY  SUBPROGRAM  IACPBS). 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c 

c 

r. 


INTERNAL  FLOW  (NFLOW=I) 


—  UNIFORM  (IR  CONICAL  SUPERSONIC  FLOW. 
CALCULATIONS  ARE  FnR  THE  «  LOWE  R -HALF  * 
OF  THE  FLOW  FIELD. 


FXTFRNAL  FLOW  (NFLOW=2)  -  INITIALLY  UNIFORM  SU°FRSONIC  FLOW. 

CALCULATIONS  ARE  FnR  THE  *UPP  ER -HA  LF  * 
OF  THE  FLOW  FIELD. 

NOTE  -  INPUT  AND  OUTPUT  DATA  ARE  FOR  THF  »UPPFR-HALE»  OF  FLOW 

FIELD.  THE  ADJUSTMENT  OF  THESE  DATA  FOR  THF  CALCULATIONS 
IS  made  internally. 

SUBPROGRAM  REQUIRES - OUTPUT , PM SBR .UFLOC , CNF LOC , Fp S , AP S , C PBS , 

MCOf TA,OUTBDY,TEST. 

«**VAR I  ARLES*** 

GAMMA  =  RATIO  OF  THE  SPECIFIC  HEATS. 

E  MS  1  =  INIJIAL  MACH  STAR  AT  POINT  l. 

PR AT  1 0=  EXPANSION  PRESSURE  RATIO  IP/PO). 

XCO  =  LONGITUDINAL  COORDINATE  WHERE  EXPANSION  IS  CENTERED. 

RCO  =  RADIAL  COORDINATE  WHfRP  EXPANSION  IS  CENTERED,  POSTIVE. 
BETA!)  =  FLOW  ANGLE,  RAOIANS,  AT  (XCO, RCO)  FDR  INTERNAL  FLOW,  POS. 
RI.MT  =  LIMITING  VALUE  OF  THE  RADIUS  FOR  TERMINATING  CALCULATIONS 
(MAX.  R  FOR  INTERNAL  FLOW  AND  MIN.  R  FOR  EXTERNAL  FLOW) 
Nf&LC  *  CURRENT  CALCULATION  NUMBER 

=  1,  THE  INITIAL  CHARACTERISTIC  DATA  1.  CALCULATED. 

.GT.l,  INITIAL  CHAR.  DATA  TAKEN  FROM  ONE  nE  THE  STORED  ARRAYS 
NETS  *  NO.  or  POINTS  OR  INCREMENTS  ON  (Nil.  .  I  I -CH AR ACT ER I S T I C . 
N2RINT=  -1  OR  0,  C.P.B.  data  NOT  PRINTED. 

+  1 ,  r  I*.  B.  DATA  PRINT  ED. 

NFLOri  =  1,  |m  -  RNAL  FLOW, 

2,  EXTERNAL  flow. 

ORPTS  -  NUMBER  Of-  BOUNOARY  POINlS  CALCULATED, 
iv.-'l'  -  BOUNDARY  JOINT  0«TA  ARRAY,  N=  l  ,  LIMIT. 

I’M\,  CHARI,  CHARE  ■=  ARRAYS  FOR  Mi T  HOO  OF  CHARACTERISTICS. 

*<0,  'PIli  DATA  (IN  OKOC-R)*** 

I NPL  DATA  TO  ACPBS 

PRAT  0-  EXP AN I | ON  PRESSURE  RATH)  (P/POt. 

I  MNP 
FMS? 

X 


MACH  number  ALONG  BOUNDARY  AF',  ER  EXPANSION, 

MALI  I  STAR  ALONG  BOUNDARY  AFTER  FXP&NSinN. 
LONGITUDINAL  COORDINATE  OF  BOUNDARY  POINT. 

P.  -  RADIAL  COORDINATE  OF  BOUNDARY  POINT. 

THETA  =  LOCAL  O'-OW  ANGLE  AT  BOUNDARY  POINT  l IN  DEGREES). 


DIM:  imS.OIm  PMRO.nO, 5, ?)  ,  LHA  i* '  1  5  ,  TO  )  ,  CHARE-  (  5, 30  )  ,  Pl(5i,  P2(5), 
;  P315),  B  P I S I S , 3  0 )  ,  SIGN 

COMMON  PM  R ,  CUARi,  CHARE,  ? ,  P3 

1-Mi  I  WPU1  DAI  A ,  SOME  OUTPUT  DATA,  AND  COLUMN  HEADINGS  ARE  PRINTED. 
CALL  OUTPUT  IGAMMA, FMS*  .  ■■  T  HI  .  E  ''  T  All  NPR  I  N1  ,  NF  LOW  ) 


i<‘UT  INP  IT  DATA  FOR 
GO  TO  l  ?,'.),  Nf  .  , 

7  RC--uCO 
VC-  U 
B  I  .  -  III  T  A O 


iv.  Finn  calculations. 


PAGE  t 

1-12 

AC  PB 

10 

ACPB 

20 

AC  PB 

30 

ACPB 

40 

ACPB 

■SO 

ACPB 

40 

ACPB 

70 

ACPB 

BO 

AC  PR 

90 

ACPB 

100 

ACPB 

110 

A"PB 

)  20 

ACPB 

1  30 

ACPB 

140 

ACPB 

150 

ACPB 

160 

ACPB 

170 

ACPB 

iso 

ACPB 

190 

ACPB 

200 

ACPB 

210 

ACPB 

220 

ACPB 

230 

ACPB 

240 

ACPB 

250 

ACPB 

-  60 

ACPB 

270 

ACPB 

2  BO 

.  ACPB 

290 

ACPB 

300 

ACPB 

310 

ACPB 

320 

.  ACPB 

330 

ACPB 

340 

ACPB 

350 

ACPB 

360 

ACPB 

T70 

ACPB 

3B0 

ACPB 

390 

ACPB 

400 

ACPB 

410 

ACPB 

42  0 

ACPB 

430 

ACPB 

4*+0 

ACPB 

450 

ACPB 

460 

ACPB 

I  70 

ACPB 

4  80 

ACPI) 

490 

ACPB 

500 

ACPB 

510 

ACPB 

52  0 

ACPB 

5  30 

ACPB 

5m  0 

AL  PB 

5  50 

ACPB 

560 

ACPB 

5  70 

ACPB 

5  BO 

ACPB 

>,0;1 

ACPB 

60,1 

AC.  PB 

610 

jrrn 

620 

ACPB 

(.30 

7.) 


APRFNOIX  A.  TWH  S  T  K  f  AM  AXISYMMFTkIC  RASF  PRESSHRF  P  R  O  G  k  A  M 

SUBROUTINE  AC  PBS  (TSABPP-2)  PAGE  A-13 


GO  Tn  6 
4  RC=RCO 

xc-xr.n 

beta=rftao 

6  CONTINUE 

C*<.**<«5FT  SIGNS  FOR  CONVERTING  OUTPUT  DATA  Tfl  THE  S-UPP  FR-HAlF  * 

C  OF  THE  FLOW  FIELD. 

C 

no  30  M=]  ,5 
GO  TO  (  10  ,20  )  ,  NFlOW 
10  S1GN(M)=(-1.0 >**<M+1) 

GO  TO  30 
20  SIGN(M)=1.J 
30  CONTINUE 

C4f***THF  MAXIMUM  NUMBER  OF  FAMILY  I  CHARACTERISTICS  FOR  WHICH 
C  CALCULATIONS  ABF  MADE  IS  SPFCIFIEI)  HFRE  (MAX.  LIMIT  IS  301. 

C 

LIMITED 

CTf**nHF  INITIAL  11-char.  IS  NOW  SUBDIVIDED  tNIT  THE  INITIAL  CHAR. 

C  OATA  CALCULATEO  (MAX.  NU.  OF  INCREMENTS  =  29). 

C 

IF(NCALC-l)  50, SO, 110 
50  GO  TO  (60,911,  NPLOW 
Ct***iFOR  INTFRNAL  FLOW  FIELD. 

60  I F ( A  B  S  ( BET  A  I  - I • OF- 4 )  70,70,80 
c«ffc*«FOR  UNIFORM  FLOW, 

70  CA1.L  'J  FLOC  (GAMMA, BMS1»XC,RC, NETS, CHARI  ,  NF  LOW  I 
GO  TO  J  10 

L**<-.a*F(JR  CONICAL  Fi  GW. 

BO  CALL  CNFLOC  (  ,AMMA,  fcMSl  ,  •_  T  A  ,  X  C. ,  R  C  ,  N  P  T  S  ) 

GO  TO  no 

0*=s***FOR  EXTERNAL  FLOW  FIELD. 

90  I F ( NSHAPF (  96,96,100 

(-sseetFQK  UNIFORM  FXTFRNAL  FLOW  WITHOUT  A  BOATTAIL. 

96  CALL  UFL  DC  (  G  4MMA.FMS1  ,XC,RC,  LIMIT-1  ,CHARF  ,NFL(1W  ) 

NPT  5  =  L I  MI T 
GO  TO  110 

f  !,<■***  FOR  UNIFORM  EXTERNAL  FlUW  WITH  A  BOATTAIL. 

100  LI M I T-NP  T  S 

C*<**'THF  PRA MOT L— MEYER  EXPANSION  AT  ( XC , RC 1  IS  NOW  SUBDIVIDED. 

no  CALL  PMSRR ( GAMMA, FMS1 , PRAT  10, BETA, XC.RC ,K) 

C‘i***Kl  IS  NUMBER  OF  FAMILY  I!  CHAR.  FUR  SUBOIVIOEO  EXPANSION. 

K 1  -  K  *•  1 

( X ,**• STORAGE  OF  INITIAL  BOUNDARY  POINT  DATA. 

NBPT S  =  1 
00  120  M=  1 ,  a 

1  20  BPTSt  M,  1  )“-SI  GN(  MJARMBIKl  ,M,  1  ) 
r><'f«THF  INITIAL  BOUNDARY  POINT  DATA  IS  PRINTED. 

CALL  OUT  BOY ( 1 , NPR I  NT ,BPTS) 

C»****THF  FLUW  FIELD  CALCULATIONS  ARE  MUM  Moot  AlUNG  FAMiLV  I  CHARS. 

STARTING  FROM  THE  INPUT  POINTS  ON  THE  SUBOIVIOEO  INITIAL 
'  family  II  CHARACTER! ST  ICS  TO  THE  BOUNDARY.  THIS  SFOUENCF  IS 

NUT  APPLICARLF  FOR  THE  FIRST  AND  SUBSEOUTNT  AXIS  POINTS. 

HO  llSI  N=?,NPTS 

'  >  •  x-U.IIAO  INITIAL  FAMILY  II  CHARACTERISTIC  DATA. 

on  iso  1-1=1,  a 

(;n  TO  (  1  31  ,  1  AO  >  ,  NT-LOW 
1  n  PMft  (  1  ,  M  ,  2  I  -CHAR  I  (  M  ,N  ) 

GO  TO  m 

1  •  )  l-"P  (  1  ,  M,  2  )-CHACE  (  M,M 
I  1 ')  CUNT  1  Nil  ( 

’  •  *  ■  Al  T.IJL  AT  1I1NS  ARI  FOR  THE  CURRENT  Iv-TH  POINT  UN  THI  INITIAL 

1  AMI  I  V  II  L  HAR  AC.  II  R  1  ST  I  C  . 


ACPB  640 
ACPB  650 
ACPB  660 
ACPB  670 
ACPB  680 
ACPB  690 
ACPB  700 
ACPB  710 
ACPB  720 
ACPB  730 
ACPB  740 
ACPB  750 
ACPB  760 
ACPB  770 
AC P FI  7R0 
ACPB  790 
ACPB  BOO 
ACPB  BIO 
ACPB  820 
ACPB  P30 
ACPB  840 
ACPB  B 50 
ACPB  860 
ACPB  870 
ACPB  RfO 
ACPB  B 90 
AC  PR  900 
ACPB  910 
ACPB  920 
ACPB  930 
ACPB,  940 
ACPB  950 
ACPB  960 
ACPB  970 
ACPB  980 
ACPB  990 
AC.  PB 1  000 
ACPB1010 
ACPB1020 
ACPB1030 
ACPB1040 
ACPR1050 
ACPR1060 
ACPB1  070 
AC  PB1 OPO 
AC  PB 1 090 
AC  PB1 1 00 
ACPR1110 
ACPR1120 
„  u  P  R 1  J.  1 0 
ACPB1  1  40 
ACPBll 50 
AT  PHI  160 
ACPBll 70 
AC  PHI  1  BO 
aCPBI 190 
ACPB1200 
ACPB1210 
AC  Pbl 220 
ACPB1  230 
P [11  2 40 
ACPB1250 
At.  Pill  2  TO 
AC  PB 1  270 
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PAGE  A-14 


C 

DO  160  u  =  l,K 

^ .» **  *  «.  q  A  L  C  UL  A  T IONS  ARE  FOR  the  CURRENT  L-TH  EXPANSION  INCREMENT. 
CT«t*tLOAD  DATA/  FIELD  POINT  CALC"  AT  ION/  STORF  DATA. 

CALL  MCOATA tl ,L,L+1 , L3 ,KPTS) 

CALL  FPSIGAKMA,  F],  P2 i  P3,  NERROR) 

IFINtRROR)  270,154,154 
154  CALL  MCDATAI 2, LI ,L2, L  +  l .KPTS ) 

160  CONTINUE 

C***»*ALL  F I E L 0  POINTS  ON  M-TH  FAMILY  I  CHAR.  HAVE  RFEN  CALCULATED. 
Ci**»s.LOAt)  DATA/  BOUNDARY  POINT  CALCULATION/  STORE  DATA. 

CALL  MCOATAl 1 ,K  + 1 ,K+1 .L3.KPTS) 

CALL  CPRSIGAMMa,  P],  P  2 1  P3.  NERROK) 

I E ( NERROR )  270,164,164 

164  CALL  MCDA1  A(2, LI, 1. 2, K  +  2, KPTS) 

NBPTS-NBPTS+l 
DO  170  M= 1,4 

170  RPTS(M,N)=S1GN(M)*P3(M) 

C»#**fCHARACTFRISTICS  DATA  SHIFT. 

CALL  MCDATAI 3.L1  ,L2,L3, K+2) 

C****ATHE  CURRENT  BOUNDARY  POINT  DATA  IS  NOW  PRINTED. 

CALL  OUT BOY (N,NPRINT » RPT  S  ) 

CALL  TEST (RLMT.NSTMT , NFLOW , M , BPT S ) 

GO  TO  (  183 ,263  )  ,  NSl'MT 

C****  +  AI) VANCE  INDEX  FOR  NEXT  INPUT  POINT  ON  INITIAL  CHARACTERISTIC. 
ISO  K-K  +  l 

GO  TO  ( 190 , 260 ) ,  NFLOW 

C*****TH1S  SEQUENCE  APPLIES  ONLY  TO  THE  INTERNAL  FLOW  WHERE  THE  AXIS 
C  POINTS  ARE  CONSIDERED. 

C««'*»»THE  NUMBER  OF  POINTS  TO  RE  CALCULATED  ALONG  EACH  FAMILY  I  CHAR, 
C  IS  NOW  CONSTANT  AND  GiVFN  BY  Kl. 

C 

190  K1=K+1 

KPTS=K1Y 1 
N=NPTS 

0***#lHe  ELEMENTS  IN  THE  N-TH  COLUMN  OF  THE  PMR  ARRAY  ARE  SHIFTED 
C  DOWN  CNF  ROW  TO  SET-UP  THE  CALCULATION  SEQULNCF. 

C 

00  210  L-1.K1 
LI  -  Kl-L+1 
on  203  M=l,4 

200  PMB , 1  1  +  1 ,M, 1 )  =  PMH ( LI ,M, 1  I 
210  CONTINUE 

Ce#**»THE  CALCULATIONS  ARE  NOW  MADE  ALONG  1HF  (N+1I-TH  FAMILY  1  CHAP. 
220  N=N+ 1 

C*t*»*LOAn  DATA/  AXIS  POINT  CALCULATION/  STORE  0A1A. 

CALL  MCOATAl I , 1,2, L3,KPTS1 
CALL  APS  (GAMMA,  P2,  Pi,  NERROR) 

I F (NERROR I  270,224,224 
224  CALL  MCOATAl 2, LI ,L2. 1 .KPTS) 

0*»**CALCULAT I  ON  OF  REMAINDER  OF  FIELD  POINTS  ON  N-TH  FAMILY  1  CHAR. 
DO  ?3'J  L  -  2  t  K 1 

Ot^sLOAD  DATA/  FIELD  POINT  CALCULATION/  S10RF  DATA. 

CALL  MCl'Al  A(  1  ,  L-  1  ,  L+  I  ,13, KPTS) 

CALI  EPS!  GAMMA,  PI,  P2,  P3,  NtllROR) 

I F ( NERROR I  273,228,228 
??FI  CALL  MCDAIA(2,L]  ,L2,l..KPTS) 

230  CONTINUi 

r»*<,**L(IAO  DATA/  BOUNDARY  POINT  CAL '.Ul.  AT  I  (IN  /  STORE  DATA. 

CALL  MCOATAl  1,K1 ,K1  +  1 , L 3 , KPTS) 

FAIL  CPBSIGAMMA,  PI,  P  2 ,  P3,  NERROR) 

IFINIRROR)  27), 234, 234 
234  CALL  MCOATA 1 7, LI .L2.K1+1 .KPTS) 

NBP1 S-NKPT S+ 1 


AC  PR  1 2  BO 
ACPB1290 
ACPB1 300 
ACPB1310 
AC  PB  1  32  0 
ACPB1330 
AC  PB 1 340 
ACPR1 360 
AC  PR  1 360 
ACPB1370 
ACPB13B0 
ACPB1390 
ACPB1 400 
ACPB1  410 
ACPB1420 
ACPB1430 
ACPB14  ,0 
AC  PB1 460 
AC  PB 1 460 
ACPB1 470 
ACPR14R0 
ACPR1 490 
AC°B1500 
ACPB1 610 
ACPB1 620 
AC  PB 1 330 
ACPB1 640 
ACPB1 660 
ACPB1B60 
ACPB1670 
AC  PB l 680 
AC  PB l 690 
ACPB1600 
ACPB1610 
AC  PB 1 62  0 
ACPB1630 
AC  Pf)  1  640 
ACPB1 650 
AC  PB 1 660 
ACP81 670 
AC  PI)  1  680 
AC  PB 1 690 
ACPB1 700 
ACPB1 710 
ACPB1 770 
ACPB1 730 
ACPB1 740 
ACPB1  7*>0 
ACPB17S0 
ACPB1 770 
AC  PB 1 780 
ACPbl 790 
AC  PB  1  800 
ACPBI  Hid 
ACPRIO/n 
ACPBI  (<  ‘0 
A  C  P  B  1  8  A  ri 
ACPBI  8'  n 
ACPI'  "*>" 
AC)"  T' 
ACPI' 1880 
ACPBI 8- 
ACPI'  l0"'1 
ACPBI  91  ^ 


APPENDIX  A.  TWO  STREAM  .  XISVMMETftlC  BASE  PRESSURE  PROGRAM 

SUBROUTINE  AC  PBS  (TSABPP-2) 


DO  2S0  -  1 ,  i, 

?AO  RPTS(M,N)=S1GN(M)*P3(M) 

C*****CHARACTFRI ST  ICS  DATA  SHIFT. 

CALL  MCDttTA(3,Ll,L2,L3,KPTS! 

C»*»*#THE  CURRENT  BOUNDARY  POINT  DATA  IS  PRINTED. 

CALL  CHJ  TBnYINfN  PRINT  ,  B  PT  S  ) 

CALI.  TEST  (RLMT,NSTM1  ,  NFl.OW ,  N  ,  3  PTS  ) 

GO  TO  ( 2SO , 260  )  ,  NSTMT 

C**»**COMPAR I  SON  WITH  LIMITING  NUMBER  UF  FLOW  FIELD  CALCULATIONS. 
250  IF(N-LIMIT)  220,260,260 

NFGATIVE,  CONTINUE  CALCULATIONS. 

IF  ZERO  OR  POSTIVE,  RETURN  TO  MASTER. 

260  CONTINUE 
270  RETURN 
END 


PAGE  A- I  5 


ACPB1 020 
ACPB1930 
ACPB1 9A0 
ACPBI 950 
AC  PB  3.  960 
AC  PB 1 970 
ACPB19B0 
ACPR1 990 
ACPB2000 
ACPB2010 
ACPB2020 
ACPB2030 
ACPS2090 
ACPB2050 
AC  PB2  0  60 


APPENDIX  A.  TWO  STREAM  AX1SYMMETR1C  RASE  PRESSURE  PROGRAM 


SUBROUTINE  CROSS  (TSAftPP-2) 

PAGE  A 

i-l  6 

SUBROUTINE  CPDSSIGAMMAI iBPTI  , L I M I T 1 ,GAMMAE , BPTE , L I  MI  r E ,  N I C , NEC » 

CROS 

10 

1 

NSTOP ,T JML I , 1 JMLE , PRSHDK ,NPR I  NT ) 

CROS 

20 

C 

CROS 

30 

SUBROUTINE  CALCULATES  THE  IMPINGEMENT  POINT  OF  THE 

CROS 

40 

C 

SUPERSET  'IC  INTERNAL  (II  ANO  EXTERNAL  (E!  STREAMS. 

CROS 

50 

C. 

CROS 

60 

C 

SUBROUTINE  REQUIRES - PRSHK, SLIP. 

CROS 

TO 

c 

CROS 

80 

c 

**»VA" 

1  ARLES*** 

CROS 

90 

c 

CROS 

100 

c 

GAMMAI 

=  RATIO  OF  THE  SPECIFIC  HEATS  FDR  THE  INTERNAL  STREAM. 

CROS 

110 

c 

RPT  I 

=  INTERNAL  STREAM  BOUNDARY  DATA. 

CROS 

120 

c 

LIMIT1 

=  NUMBER  OF  INTERNAL  STREAM  BOUNDARY  POINTS. 

CROS 

1  30 

c 

gammae 

=  RATIO  OF-  THE  SPECIFIC  HEATS  FOR  THE  EXTERNAL  STREAM. 

CROS 

140 

c 

RPTE 

=  EXTERNAL  STREAM  BOUNDARY  DATA. 

CRDS 

150 

c 

L1MITE 

=  NUMBER  OF  EXTERNAL  STREAM  BOUNDARY  POINTS. 

CROS 

160 

c 

NIC 

=  LOCATION  NO.  OF  INTERNAL  STREAM  IMPINGEMENT  POINT. 

CROS 

170 

c 

NEC 

=  LOCATION  NO.  OF  EXTERNAL  STREAM  IMPINGEMENT  POINT. 

CROS 

1  BO 

c 

NSTOP 

=  >,  SOLUTION  FOUND. 

CROS 

190 

c 

=  1,  NO  IMPINGEMENT. 

CROS 

200 

c 

=  2 1  NO  SHOCK  SOLUTION. 

CROS 

210 

c 

«  3,  IMPINGEMENT  BEFORE  SEPARATION. 

CROS 

220 

c 

T  JMLI 

=  INTERNAL  TURBULENT  JET  MIXING  LENGTH. 

CROS 

2  30 

f. 

T  J  ML  F 

=  EXTERNAL  TURBULENT  JET  MIXING  LENGTH. 

CROS 

240 

c 

PHSHE1K 

=  STATIC  PRESS.  RATIO  (RISE)  ACROSS  OBLIQUE  SHOCK  SYSTEM. 

CROS 

250 

c 

NPRINT 

=  SEE  SUBROUTINE  *INDUT*. 

CROS 

260 

c 

CROS 

270 

c 

BPT I ( M 

,N)  ANO  HF'TEIM.N)  ARE  BOUNDARY  POINT  DATA  ARRAYS  WHERE 

CROS 

2  80 

c 

M=l,4  AND  INDICATES  VARIABLE  AS  IN  P MB  ARRAY. 

CROS 

2  90 

c 

N-U LIMIT!  OR  L1MITE  INDICATES  THE  BOUNDARY  POINT. 

CROS 

300 

c 

CROS 

310 

c 

CROS 

320 

EMNMSFIEMS, GAMMA )=S0RT( ( (2.0*(tMS**2) ) / ( GAMM A+ 1 . 0 > )/ 

CROS 

330 

1 

(1.0-1 (GAMMA-1 .0) /(GAMMA *1.0) )*( EMS**2 ) )  ) 

CROS 

340 

DIMENSION  XII 301 tRI (BO) ,Xt (30) ,RE (30) ,BPTI (5,30) ,RPTF I  5.30) 

CROS 

350 

C4**»«LOAOtNG  OF  CONSTANT-PRESSURF  BOUNDARY  POINT  DATA, 

CROS 

360 

DO  10 

N=1,L1MIT1 

CROS 

370 

X  I  (  N  ) 

=  BPT 1 ( 1,N) 

CROS 

3B0 

10 

R1  IN) 

=  EiPT  I  (  ?  i  N  ) 

CROS 

3  90 

DO  20 

N* 1.LIM1TE 

CROS 

400 

X  E  (  N  1 

*  B  P  T  E  (  1  *  N  I 

CROS 

410 

20 

RUN) 

=  RPTL;(2,N) 

CROS 

420 

C*****SfcT  INITIAL  VALUES. 

CROS 

430 

NSTOP  = 

1 

CROS 

440 

PR  SB  OK 

=0  ,J 

CROS 

4  50 

N1 MAX= 

L1M1TI-1 

CROS 

460 

NEMAX= 

LJMITE-1 

CROS 

470 

C*****CHECK 

E OR  IMPINGEMENT  UP'STREAM  OE  THE  SEPARATION  POINTS. 

CRDS 

480 

L  *+  ** 

^6F0R  TU 

E  1NTEPNAI  ST  III- AM. 

CROS 

490 

SE*-P  .0 

CROS 

500 

NF*1 

CRDS 

510 

DO  30 

N1=1,NIMAX 

CROS 

520 

SI  -  (  R I  (  N I  +  1 )  -  RI(NI))/(XI!NI+I)  -  XIIND) 

CRDS 

5  10 

IF(ABS< SE-SI )  .LT.  1.0E-05)  GO  TO  30 

CRDS 

540 

X  I  * 

IR11NI)  -  REINE]  +  SF*Xfc(NE)  -  S1*XI(NU)/(SE  -  SI) 

CROS 

550 

IF  (  (  XIMP.r.E.XI  INI)  )  .AND.  (XIMP.LE.X1INI  +1)1  .  AND. 

CROS 

560 

I  ( XIMP.LE. XF (NE ) 1 1  GO  TO  SO 

CROS 

570 

^0 

CUNT  I NUt 

CRDS 

5  BO 

£***<£  o  p  HR  IHb  h  XT  f  RNAl.  STKbAH. 

CROS 

590 

51 “)  .0 

CROS 

600 

N1  =-1 

CRUS 

610 

nn  *»o 

Nf  -  1  iNl-MAX 

CRDS 

62  0 

St  -  (RHNt+ll  -  RMNt- )  > /UMNM1  )  •  xHNU) 

CRMS 

630 

74 


APPENDIX  A. 
SUBROUTINE  CROSS 


TWO  STREAM  AX  1  S  YMMET  R  I C  BASE:  PRESSURE  PROGRAM 
( TSABPP-i ) 


PAG!  A- 17 


I  E  ( ABS  (  SE-SI  )  .LT.  1.0F-05I  GO  TO  40  CROS 

XIMP  =  (RI(NI)  -  HEINE)  +  SF*XE(NE>  -  S 1 *X 1  ( N 1  I ) / 1 SE  -  SI)  CROS 

I F ( <  XJMP.GE. XE l NE )  ] .AND. (XIMP.LE.XE (NE  +  1 ) )  .  AND.  CROS 

1  l XIMP. Lt. XI (NI ) ) )  GO  TO  70  CROS 

40  CONTINUF  CROS 

GO  TO  100  CROS 

IMPINGEMENT  OCCURS.  CROS 

BO  RIMP  =  (SE*SI* ( XE(NE )-X 1 (NI ) i  +  SE*RI(NI>  -  S I *RE ( NE ) > / < SE -S I )  CROS 
C  CROS 

WRITE  (6,60)  XIMP, RIMP  CROS 

60  FORMAT!  ISX,  48H  ****** J MP 1 NGEME NT  OF  THF  INTERNAL  STREAM  OCCURS  ZEROS 

1  21X,  47H  BEFORE  SEPARATION  OF  THE  EXTERNAL  STREAM******  ,  /,  CROS 

2  16X,  27H  IMPINGEMENT  OCCURS  AT  X  *  E10.6,  SX,  9H  AND  R  *  F10.6  Z1CR0S 

GO  TO  90  CROS 

C  CROS 

70  RIMP  *  ( SE*SI *  1 XE ( NE /-X! ( NI ) )  +  Sb*Rl(NI)  -  S  I  *R  E  (  NE  )  )  Z  (  SI  -S  I  )  CROS 
C  CRQS 


640 
66  0 
660 
670 
6B0 
690 
700 
710 
720 
730 
7  AO 
7S0 
7  40 
770 
7  80 
7  90 
BOO 


80 


90 


WRITE  (6,80)  XIMP, RIMP 

FORMAT!  15X,  48H  ******[ MP I NGEMENT  OF  THE  EXTERNAL  STRLAM  OCCURS 

1  2 1 X ,  47H  BEFORE  SEPARATION  OF  THE  INTERNAL.  STREAM******  ,  /, 

2  16X ,  27H  IMPINGEMENT  UCCURS  AT  X  *  E10.6,  5X,  9H  AND  R  *  F10.6 


NSTUP*3 
GO  TO  230 
C*****CALCOLAT ION 


OF  CUNSTANT-PRHSSURE  BOUNOARIES  IMPINGEMENT  POINT, 


100  DU  120  NI  *  1 ,  N  I  MAX 

SI  *  (RIINI  +  1)  -  RUNIM/IXIINI+I)  -  X I  ( N 1  1  ) 

no  no  nf*i,nemax 

SF  =  (RFINE+l)  -  RE ( NE ) ) /( XF (NE +1)  -  XE ( NE ) ) 
IEUBSISF-SI  i  .LT.  l.OE-05)  GO  TO  110 


1 


$e*Xl-(NE  )  -  SI»XI  (NI  ))  /(  SE 
(XIMP.LE.XJ (NI+1) )  .AND. 
(X1MP.LE.XEINE+1) ) )  GO  TO 


SI  ) 


140 


XIMP  =  <RI (NI )  -  RE(NE)  + 

IE( (XIMP.Gt.XI (Nil )  .A  NO. 

< XI MP.GE. XE ( NE ) )  .ANO. 

CONTINUE 
CONTINUE 

C*  ****(■  QR  NO  IMPINGEMENT  OF  THE  STREAMS. 

WRITE  (6,1 30 ) 

130  FORMAT (  I6X,  41H  ** *  I MP I NGE MENT  DOES  NOT  OCCUR  WITHIN  THF 
1  1 9 X ,  44H  RANGE  OF  CONSTANT-PKESSORF  BOUNDARY  DATA*** 

NST0P=2 
GO  TO  230 

c**<.<*PnR  impingement  of  the  streams. 

J43  RIMP  =  (SE*SI*l XE(NE)— XI(NI) >  +  SE*RI(Nt)  -  S 1 *RE ( N( ) ) / ( S I 

NI C  *N 1  +  1 


110 
1  20 


SI! 


N(C=NE+1 

.  *  x  ***  1  NT  ERPOLATION 
00  ISO  M  =  3 , 4 
HPT  I  (M, NI C )  = 

1 

140  HPT !:  (  M  ,  NEC  )  * 
i  i 


(OR  THE  FLOW  VARIABLES  AT  THE  IMPJNGEMINT  POINT. 

HPT  I  (M, NIC-1 !  +  ((XIMP  -  XI ( N I C- 1 ! ) Z 

(XI  (NIC)  -  XI 1  NIC-1 )>>*( BPTI (M, NIC)  -  PPTllM, NIC-1 

BP1 E ( M, NEC-1 )  +  ((XIMP  ~  XE(NEC-1I)Z 

XE(NLC)  -  XC  (NEC-1  !  !  !  *  (  BPTE  !  M,NFr  I  -  RPTKM.NIT.-1) 


C  <■*.,**  STORE  COORDINATES  OF  THE 
HPT  I  (  1 . N I C  )  *  XIMP 

HPT  I  ( 2 , N I C  )  =  RIMP 

BP T (  I  1 , NE C )=  X  IMP 


IMPJNGl-MtNT  POINT. 


CROS  H  !  0 
Z  CROS  R.’O 
CROS  M  30 
Z  )  CROS  H4(] 
CROS  BSO 
CROS  R(.0 
CROS  H70 
CROS  880 
CROS  BOO 
CROS  900 
CROS  9),0 
CROS  9*0 
CROS  930 
CROS  940 
CRUS  960 
CROS  960 
CROS  9 7 ( > 
CROS  98i‘ 
CROS  9U0 
CR0S1 000 
CROSIOIO 
CR0S1 020 
CR0S103D 
CKO  SI  040 
C  80S  1 040 
CROS 1 060 
CROS 1070 
CROSI 080 
CR0S1090 
CROSI 1 00 
CROS 11 10 
) ) CROSI 1 20 
CROS  1 1  3  Cl 
)  CROSI 140 
CROSI ISO 
CRUSH  60 
CROS 1 1 70 
CROS 1 1 80 


i.°  T  f  (  2,  NEC  )  *  RIMP 

r  »***•> CALCIILAT  ION  OF  THE  MIXING  LENGTHS. 

tjmc  i  -o  . t 

00  169  N--?,N(C 

l'  -l  1  JHL1T  JMl  J  +1.0PT  (  (  HPT  I  (  1  ,N  )-  BPT  I  (  1  ,-\l-l  !  1**2 
1  *  (  BI’T  1  (  -  ,N)  -  BPT  I  (  2  ,N-1)  )«*?  1 

T.lMLf  =  )  .3 
00  ).  .U  MoMJII. 

1  ’  I  I  JMI.I  -  I  JMl  |  l  •.!)«  1  (  (  (U’T  I  I  1  ,N  )  HOT  r -l  ]  ,N  -1  I  1  **2 


CROS l 1 40 
CROSI ZOO 
CROS 12 10 
CROSI  .'2" 
CROS’ 
CKOS ■  1 
CROSI  " 
E  «rr.  i 
CMOS  ,  ,•  in 


APPENDIX  A.  TWO  STREAM  A  X  I  S  YMMF:  T  P.  1  C  BASE  PRESSURE  PROGRAM 

SUBROUTINE  CROSS  (TSARPP~21  PAGE  A-1R 


1  + ( BPTF ( ? ,  NI-IU'TE I  2 , N-l )) **? ) 

C.****<UIJTPUT  IMPINGEMENT  POINT  DATA. 

I  MNI  =  FMNMSF  ( BF'T  I  (  3, N I C  I  «  GAMMA  1  ) 
TMETDI  -  67.2967795*RPTI (9,N!C) 
FMNE  *  FMNMSF I BPTF ( 3, NEC  I  .GAMMAE I 
THfcTDF  -  S7.2967796*BPTE(4,NEC) 

I  MNPR1  NT.LT  .0  )  GO  Tfl  POO 

0. 

WRITE  (6,180) 

1  GO  FORMA  I  (  1M  I 

c 


WRITE  (6,190)  X1MP.R1MP.EMN1 (THETOI ,TJMLI , 

1  XIMP.RIMP,  EMNL-,THFTITt,TJMUE 

190  FORMAT ( //, 1RX,92H***AT  INTERNAL  STREAM  IMPINGEMENT  POINT***  ,//, 

1  6X,  6H  X  -  F 1 0 . 6 ,  EX,  6h  P.  =  E10.6,  6X,  120  MACH  NO.  *  810.6,//, 

?  6X,  15H  TUETAtOEG.)  =  HO. 6,  6X,  17H  MtXING  LENGTH  =  F10.6,//, 

3  1BX,  93H  *** AT  EXTERNAL  STREAM  IMPINGEMENT  POINT***  ,//, 

9  SX,  6H  X  =  Fio.fa,  5  X ,  6H  R  -  1-10.6,  6X,  1?H  MACH  NO,  =  P10.6,//, 

6  6X,  1 6 H  THFTAIOEG.)  =  E10.6,  6X,  17H  MIXING  LENGTH  -  F10.6,//) 


C 


C***»*CALCOLAT10N  OF  THE  RE COMPRESSION  SHOCK  SYSTEM. 

C***** CALCULATION  OF  THE  SLIPLINE  ANGLE. 

2U0  CALL  SI.  I  p  (OPT  I  (  3, NIC  )  ,  OPT  I  (  9, NIC  i  .GAMMAl  , 

1  8  RTF  (  3,  NFC  )  ,PPTH  9  ,NEC  )  ,  GAMMAE  , 

2  1 HFTAS.NSTDP ) 

C*****OOFS  THE  SOLUTION  FOR  THE  SLIPLTNE  ANGLE  FX1ST. 

GO  TO  (710 ,730 ,2301  ,  NSTCIP 

C*****CALCULATION  of  THE  STATIC  PRESSURE  RATIO  ACROSS  THE  SHOCK  SYSTEM. 
C  (NOTE  PR SHOK I -PRSHOKF *PRSHOK. I 

C 


210  OFLTAI  =  ( RPT I ( 9 , N I C I  -  THETAS) 

PPSHOK  -  1RSHK(  BPT  I  (  3  NIC  I  ,f)FLT  A1 , GAMMAl) 
THETAS  -  6  7.29677 96* THE T A S 
I E ( NPRINT.LT .1 )  GO  TO  230 
r***x*OUTPin  OF  SHOCK  SYSTEM  DATA. 

c 


WRITE  (6,220)  THE T AS , PRSHIK 

270  FORMAT!  1 6 X ,  9HH  ***0HL10UE  SHOCK  SYSTEM  AT  IMPINGEMENT  POINT***// 

1  SX i  73H  SLIMLINE  ANGLE (OEG.I  *  E10.6, 

2  6  X ,  ?4M  ST  A 1  1C  PRESSURE  RATIO  *  E 1 0 . 6 , / / I 

7  3'T  RETURN 
F  Nil 


CR0S1 780 
CR0S1790 
CR0S1 300 
CR0S1 310 
CR0S1370 
CR0S1330 
CR0S1 390 
C.R0S1360 
CR0S1 360 
CR0S1 370 
CR0S1380 
CR0S1390 
CR0S1 900 
CROS 1 9 1 0 
CR0S1 970 
CROS 1 930 
CPOS1990 
CROS1960 
CROS 1 9  60 
CR0S1 970 
CR0S1980 
CR0S1 990 
CROS 1 600 
CRUS1 610 
CR051S20 
CRD  S 1 630 
CROS 1 690 
CROS 1 660 
CR0S1 660 
CR0S1 670 
CRDS1SR0 
CR0S1 690 
CROS) 600 
CR0S1 610 
CR0S1 670 
CRUS1  (.30 
CROS 1 690 
CRDS1 660 
CR0S1660 
C.P.0S1  670 
CR0S16R0 
C.R0S1690 
CKO  S 1 700 


7 1. 
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APPENDIX  A*  TWO  STREAM  AXlSYMMMHlC  BASF  I'Rf  ‘.M'RT  PROGRAM 

MltmUiniNF  TJM1X  (lSAIU'P-pj 


C. 

c  *  *  *  * 

r 

c 

c 

r. 

c 

c 

c 

c 

c 

c 

c. 

c, 

c 

r. 

r 

c 

c 

r 

c 

c 

c 


SUBROUT  I  Nl  1  JMl  X  (  GAMMA  1  ,  GO.  1  ,  1  MS  1  , T  KBiU  ,  T  JMl  1  , 

1  GAMMA 2  ,«'.C?  i  FMsPt  TKBU?*  *T  JML?  t 

7  RN1 tPMSNl ,  »U TAMltHlMP, PKSHOKt 

3  PRO?  1  *  T  R  n  ?  1  »  R  [  CHMP,RI  l>R,ENGK) 


-THIS  SURRUUT  INF  CALCULATIS  THE  I)  I  M  \  N  S  I  OML I  S  S  Bl.PFO  AND 
FNFRGY  RATIOS  FOR  THE  TWO-SIHFAM  INI  I-  k  A(  T  1  UN  PROBLEM. 

SUBROUTINE  R  I-  Oil  IMPS - 1  {  ORAL* 

***VAR  I  ABU  S*** 


FUR  F1THPR  SI REAM  \  OR  7 


(,  AMM  A 

GC 
FMS 
THETA 
TRBU 
T  JML 


RAT  1  (1  UP  SP!  C  II  1  (  Ht  ATS  . 

GAS  CONSTANl (  L  B  F  -  P  T / L H M-R ) 4 

MACH  STAR  AY  l  M  P  1  N  Gfc  M  t  N  7  POINT. 

FLOW  ANGLt  AT  I MP I NGEM  E  '  f  POINT  (IN  RADIANS). 

BAST  TO  FREE— STREAM  ST  A -.NATION  TEMPPHATURI  RATIO. 
TURBULENT  JET  MIXING  UMiTH. 


RN1 
FMSN1 
Bt  T  AN 1 
R  I  MP 
PR  SHI  IK 


NOZZLE  EXIT  RADIOS  OP  ST  Rt-  AM  i  (INTLRNAU. 

NO 7? L L  EXIT  MACH  STAR  111  STREAM  \m 

NO  /  /  LI.  IXI7  PLOW  ANGLE  AT  RN 1  (IN  RADIANS). 

RADIAL  COORDINATE  OF  I  MP  l  NGP'Ml  NT  POINT. 

STATIC  PRESSURE  RATIO  (RISE)  OP  OftL  i  l  »•  IP  ^hoC.K  SYSTIM. 


PRO?  1  =  STAGNATION  PRESSOR!  RATIO,  PIV/PCH. 

TR(J21  =  RATIO  (1P  STAGNATION  1PMPERAIORIS  OP  T HI  TWO  STREAMS. 
RFCOMP  =  Rt  COMPRESSION  COM  I  IC1ENT. 


BLUR  ••  MASS  IU.PPD  RATIO  RIFIRENCEO  TO  PLOW  OF  STREAM  1, 

(G  B  L  E  P  l) }  /  (  G  NO  7  7  L  l  1  ). 

bNGR  •••  ENERGY  Bl.fcFl)  RATIO,  (  OM  E  ('» Ah  )  /  I  (  G  NOZZLE  1  )  ♦  C  P  1  *  T  D1  )  , 
WHERE  OMI-GAB  IS  REFER! NCED  TO  T^O. 


CR?MSP  (  r  MS,  GAMMA  )  =  (  (  gamma-  1.0)  /  ,  GAMMA+  1  .  (1  )  )  *  (  p  ms  ♦♦  ?  j 
PMNMSI-  (  EMS  ,  GAMMA  ) -SDR  I  (  (  (  ?  .0*  (  l-Ms**?  )  )  /(GAMMA+1  .  0  )  )  / 
l  <  1.0-(  (OAMMA-l.iM  /(GAMMA  +  I.O>  )*UMS**/)  )  ) 

t  MSPRM PR , GAMMA) "SORT  (  (  ( GAMMA+ 1 .0 ) / ( GAMMA-1 .0} ) * 

1  (  1 .(>-PK**<  ( GAMMA-l. 0) /GAMMA)  )  ) 

W  T  F  L  M  S  l IMS , GAMMA ) "SORT  (  2  •  0  *GAMM  A  /  ll‘.  AMM  A  4  1  .  O  )  )  * 

1  ( IMS/ ( 1 .0- I (GAMMA- 1 .0 ) / ( GAMMA +1 .0 1 ) * (  t  MS**? 1) ) 

PH  MS I  (EM S, GAMMA)" (  1 .0- (  (GAMMA-  1 . U ) / ( G AMM A 4 l . 0 )  I  M-Ms** P } *  * 

1  ( u A MMA / ( GAMMA - 1 . 0 )  } 

SKmapu-mn)  =  (i?.n  ♦  7,/sh-lmn) 

PH  I  Dl  (CNR  ,  1 KIH ! )  -  CNR*<0.‘>#CNR*(  1.0-1  R  BO  )  ♦ 

1  SORT  (  (CNR**?  )*»{  0.  H*  (  1 .0- PMV11  ]*:?)*  IKB'I  )) 

L  ^CALCULATION  Ml  DISCRIMINATING  STREAMLINE  VELOCITY  RAllOS 

C  BASED  ON  T  HI  U  LC.OMPRE  S  S  J  ON  (  (IEEE  I C  I  P  NT  .  MNU  TMI  PRISSUR1  H  A  l  1(1 

l'  ACROSS  TO!  IIIU  10OE  SHOCK  SYSHM  IS  1  DUAL  MIR  STREAMS  ]  AMO  '  , 

(  Till  DISCRIMINATING  STRIAMIINE  STAGNATION  PRfSSURl  RATl'S  |»/f>|)i|, 

C  IS  A l SO  TMI  SAMr. 

( 

PRDO-  (  1  .0  /  IRI  COMM* 'RRSHIIX  )  ) 

f  <  *  v#<-|  or  stream  ]  . 

n)  C  ,0010  -  r.R  ?MSF  (  I  MSPHf  (  PROD  ,  GAMMA)  )  ,  GAMMA  )  ) 

(  soul  •  CK?MSP  n  MSI , GAMMA  1  i 
f  1  SOP.  I  (  C SOD  1  ) 

(  NR i  sou  T  ( c S OD 1 1 ' / c son  1  ) 

PH  11)1  PHI  ID  (  f  NR  1  ,  I  RKOI  ) 

•  Ail  1  I  r.R  Al  I  ,J  M  I  D  J  TCSOn  J  ,  T  RBO  J  ,  I  I  1  J  1  ,  l  I  I  Ol  .  E  I  '.I  1  *  !  I  MU) 


Af,F  . 

A- 19 

1  JMl 

10 

T  JMl 

?o 

7  J  F-J  1 

30 

T.JM1 

AD 

T  JMl 

SO 

TJMl 

6 0 

T  JM] 

7  0 

T  JMl 

80 

TJMl 

VO 

TJMl 

1  00 

TJMl 

1  10 

TJMl 

l?o 

TJMl 

130 

TJMl 

1  Ao 

TJMl 

1  so 

TJMl 

160 

TJMl 

170 

TJMl 

180 

T  JMl 

190 

TJMl 

200 

TJMl 

210 

TJMl 

??() 

TJMl 

?  30 

T.IMI 

?  A  0 

TJMl 

/  so 

T  JMl 

;»oo 

TJMl 

?  70 

TJMl 

7  80 

TJMl 

?90 

TJMl 

300 

r  JMl 

310 

TJMl 

320 

TJMl 

330 

TJMl 

3  AO 

1  J  M  I 

3b  0 

1  JM  I 

560 

1  JMl 

3  70 

TJMl 

5  HO 

TJMl 

390 

TJMl 

A  00 

TJMl 

A  10 

TJMl 

A?  0 

1  JMl 

A  30 

TJMl 

A  AO 

I  JMl 

A  ‘  0 

TJMl 

AM) 

TJMl 

A  7  0 

1  JMl 

AMO 

1  JMl 

A  90 

T  JM  1 

son 

TJMl 

si  n 

TJMl 

s;>o 

TJMl 

S  3  0 

TJMl 

sad 

1  JM  ( 

ssn 

1  JM  1 

s*.o 

1  JMl 

s  /  (1 

1  JMl 

*•  H  0 

(  JM  | 

.90 

T  J  M  I 

ODD 

1  JM  I 

M  D 

7  IMI 

r.?() 

JM  1 

S  s() 

/  7 


APPtNI'lX  A.  7  Mil  ST  R I  AM  AXISYMMF!R|C  HAST  PRFSSURF  PROGRAM 

simRiuiTiNi  ijmix  itsarpm-?]  pagf  a-?o 


SlltUM  ?.  TJMI 

0  SOD?  0  -  CR?MSF  II  MSPRF  I  I'RIll) ,  GAMMA?  )  ,r,A««A?  )  TJMI 

C SO"?  =  CR?MSF (  (  MS? . GAMMA? )  TJMI 

C?-SORl  ( CSQO? I  TJMI 

CNR?  =  SORT  (  C  SOD2U/OSQO?  I  I  J  I 

PH  II)?  =  PUJOFICNK?, TRAIT?)  TJMI 

CALL  T  t  ORAL  (  PHI  O?  ,CSOn?  ,  TRIin?  ,f  TJMI 

c  f  *  <  *  1 1  VALllAT  1  ON  III  BLH-n  ANI'  ( NFRGY  RATIOS.  TJMI 

SIGMA!  -  S)  I, MAT  I  I  MNMSM  I-MS1  , GAMMA!)  >  TJMI 

SIGMA?  -  S  I  C.MAM  l  MNMSM  |  MS?  ,  GAMMA?  )  )  TJMI 

PRIIN1  -PRMSM  FMS1  ,  GAMMA  1  I  /  P  R  M  S  F  (  F  MSN  1  ,  GAMM  A1  )  1  JM  I 

ClIUHsI  M  .  )  +  COS  ( BFTAN1 )  J  /  S  I  GMA  1  )  *  (  K  1  MP /RN  1  )  *  l  T  JML  1 /R  N1  )  *  (  PR  P  N1  )  *  T  J  M  1 
1  SORT  ( ?.1*GAMMA1/ (GAMMA1-1 ,0)>*( 1.0/WTFLMS  1  F  MS  N  1  ,  G  A  MM  A  1)  )  TJMI 

con i ?  =  i t jml?/i jmi n  * i sigmai /sigma? i *  sort  i u.o/tro?ii*  tjmi 

)  ( GAMMA?/ GAMMA  1 ) * ( GC I /GC? ) *  I  (GAMMA1-1 ,())/( GAMMA2- 1 .0)1)  TJMI 

CUt  F  FT  -  i SI GMA l/SIGMA? )<MT JML?/T JML 1 1* SORT  (  (GC? /GC 1)  M  YR021 )>*  TJMI 
1  I (  (GAMM*?/ GAMMA  11* ( (GAMMA  1-1.0) /( GAMMA ?-l .0 )  11**1. b)  TJMI 

ITLDR  =-COFFF!  *1  C  1  <  I  F  I  10) -F  II  Jl)  ♦  CUP  Ff  ?*C?*  ( 1 1 1  02- F  II  J?  )  1  TJMI 

t  NOR  ^  -C  Ot  I  i  I  *  (  C.  I '  (  F  I  301  -  T  RRl'l  *F  II J  1  )  +  CnFFF?«=C?*  TJMI 

1  I F  1 3I)?-TR‘MI?»P  I  1 J2 1)  TJMI 

RITIIRN  TJMI 

INI)  TJMI 


A40 
AGO 
GAO 
A  70 
ABO 
AGO 
700 

no 

7?  0 
730 
74  0 
7  SO 
7  AO 
770 
7H0 
7  70 
RO0 
BIO 
P?0 
H30 
84  0 
B‘,0 


APPENDIX  A.  TWO  STM  AM  AXISYMMFIRIC  HAS1  PRISSORF  PROGRAM 

SUBROUTINE-  i)UT?M  I  I  S  AH  pp  -  ?  I  pact  a-?i 


S OH ROUT  I  NF  OIIT?M(  PRRF  ,PKH1  |  ,  PRUt  (I  |  ,  TRRI'1  ,  i  KWI1  ,  7IH1H  f  PHlli  [  ,  IHH? 

]  PR]  I  F  ,HLI)R  ,1  NOR  ,M’R  I  NT  ,r.Pi  CO,  HI  [inn  ,  EN'.R(l)  OTM? 

C  PPV 

Ct:;tc!|i|ii?n  WRIUS  (HIT  Till  CALC.ULAT  I  I)  MIXING  RFSIIL1S  AND  CURRFNT  DATA.  OTM? 
C  n  T  M  ? 

0  **evARIABLES“*  OTM? 

ot«? 

C  PR H  =  HASP  PRESSURE  RAT  It*,  PR/PF.  OTM? 

C  PRHlI  =  BASF  PRESSURE  RATIO,  PH/PIT.  OTM? 

C.  PROP  tl  I  r.  STAGNATION  PRESSURE  RATIO,  ROE/POl.  FITM? 

C  TRIUH  =  BASF  TEMPERATURE  RATIO,  TB/TI1F.  OTM? 

C  TUIIOI  -  BAST  TFMPFRATIIRF  RATIO,  TB/TOI.  OTM? 

C  TRIM  I  =  STAGNATION  TLMPFRA1 URF  RATIO,  TOF/TOI.  UTM? 

C  PRdlt  =  INTERNAL  STAGNATION  TO  FXT.  STATIC  PRFSS.  RATIO,  POI/PF.  nTM? 

C  PRIIt  INPUT  STATIC  PRESSURE  RATIO,  P)1/PF.  OTM*> 

C  HI.  I)R  ,  FNO.R  =  SF  F  SORROOTINI  *TJM1X'»  FOR  OF  F  I  M I  T I  flNS .  UTM? 

C  NPRINT  =  SEE  SUBROUTINE  *INIHJT»,  OTM? 

C  CP  BASF  PRFSSURF  COEFFICIENT.  OTP? 

C  Cl)  =  BASF  DRAG  COFFFICIFNT  •  OTM? 

r.  I)L  DR  O,  F  NGRII  =  SPICIFIFI1  VALOIS  ITT  I  HI  BLI-U)  AMD  ENERGY  RATIOS.  OTP? 

C  OTP? 

C  OTM? 

IF  (NPRINT.LT.fi)  GO  TO  103  OTM? 

C  'HIM? 

WRITE  (A,  100)  PR1  IF  ,1  RDF  I  , PROMT!  .PKUU-  .BLDRU,  I  Nf.RD  nix,' 

100  FORMAT  [  1  9  X ,  *1H  ******niRHlll  >NT  JIT  MIXING  RF  SOL  T  f  »  ,  //,  OTM? 

1  3 TX,  190  ***C1IRKFN7  DATA*'-*  , //,  OTM? 

?  14X,  11H  PH/PI  =  FB.3,  1 7  X  ,  no  TIIF/TOI  =  FH.  *.,//.  Ill  M? 

3  1 A  X ,  1IH  POF/PU1  *  Ml. 3,  17X,  110  POI/PF  I  B . 3  ,//,  OTM? 

A  ]  A  X ,  9H  BLORfl  =  FI?. 3,  1 3x ,  90  FNGRO  „  II?.  3,//)  OTM? 

C  OTM? 

WRIT  l  (A,  Ml)  IILDR.FNGH  OTM? 

Ml  FORMAT ( 33X,  1HH  ***MIXINr,  DATA*!1*,//,  01  M? 

1  1 A  X ,  HO  ITLOR  ■-  FI?. 3,  1AX,  BM  ENGR  »  l]?.3,//l  OTM? 

0  OTM? 

WRITE  (  A ,  1 J  ?  )  TRUTH  ,T  RH01  ,PRBF  , "HUM, CP, CO  HIM? 

n?  FORMAT  (  1 A  X ,  A  91 1  ***»ASI  PRESSOR!  AND  I  I  MI’FRATIIRI  RISULiS-**  ,//,  OTM? 

1  1 A X  ,  Mil  TH/TOl  *  FB.3,  1RX,  TOO  1H/T0I  =  l-H.'.,  //,  OTM? 

?  TAX,  100  I'Fl/PF  -•  F  H .  3  ,  1HX,  100  P|T/P]I  •=  FA.  F,  //,  OTM? 

3  1 A  X ,  10H  CP-B  -  FK.3,  IPX,  100  CO-H  -  FH.G  ,//,  OTM? 

A  ?D  X  ,  AO  o  iK4tt»|  Nil  III  CURRENT  CAS!  IP  :,IILIS*i:i<«  /,  OTM? 

3  ?f)  X  ,  A)  FI  /  /  )  HIM? 

C  OTM? 

Ill  M? 


in 
?n 
30 
AD 
30 
All 
70 
HO 
”0 
1  (111 
1  1  O 
1  ?0 
I  30 

1  AO 

1  Bn 
1  AO 
I  70 
1  !<0 
1  'HI 

pno 

Pin 

??o 

?p) 
?F0 
?30 
?  6  0 
?  7(1 
?  “  0 
?  9  0 
300 
310 
3?  0 
330 
3  4  0 
•>40 
36  0 

3  70 
Tan 

390 
A  00 

4  1  0 
API) 
A  3(1 
A  A  0 


10  3  R|  TORN 


APPENDIX  A.  TWO  STREAM  AXISYMMETK1L  BASE  PRESSURE  PROGRAM 

SUP, ROUTINE  ITER  (TSABPP-?)  PAGE  A-7? 


SUBROUT  I NF  ITER  I  X, OX , ERRORX , SI GN, Y , YG l VEN,  I  R RORY, NIT, NTYPE , 

1  XNEG, YNE  G.XPOS, YPIIS.NSIGNI ,NS IGN?) 

t 

C*<***SUrtR(lllTINE  PERFORMS  AN  ITERATION  TO  FIND  X  SUCH  THAT  TOE  ABSOLUT  I 

C  VALUE  OF  (Y-YGIVEN)  IS  LESS  THAN  OR  EQUAL  TO  ERRORY  OR  THE 

l",  ABSOLUTE  VALUE  01  (  X  (  I  +  )  1  - );  (  ]  )  1  IS  LESS  THAN  OR  F  Oil  A  L  TO  ERRORX. 

r. 

C  A+AVARI ARLESf«f 

C 

C  X  INDEPENDENT  variable. 

C  OX  =  INCREMENT  IN  I NnE  PI  NO! NT  VARIABLE. 

C  ERRORX  =  MAXIMUM  VALUE  OF  APS ( X < I + 1 ) -X  I  i  ))  EUR  SOLUTION. 

C  SIGN  -  +1.0  OR  -1.0,  OrFIMfS  INCREMENTING  FROM  X  INITIAL. 

C  Y  =  DEPENDENT  VARIABLE. 

C  YGIVIN  =  GIVEN  VALUE  OF  DEPENDENT  VARIABLE. 

C  ERRORY  =  MAXIMUM  VALUE  OF  APS ( Y- YG I VEN ) . 

C  NIT  -  INCREMENT  NUMBER. 

C  NTYPE  =  1,  INCREMENT. 

C  =  7,  INTERPOLATION, 

C  =  3,  SOLUTION, 

C 

OY-Y-YGI VEN 

IEiABS  I DY ) —ERRORY )  90, 90, 10 
TO  II  (l)Y)  70  ,90 ,10 
70  NS ( GN?=- 1 
XNEG'X 
YNl  G  ‘ Y 
GO  TO  90 
30  NS  I  G  N7*  4  1 
XPOS=X 
YPOS-'Y 

90  GO  TO  i  ->0  ,H0  1  ,  NTYPE 
BO  IF1N11-1 I  70 ,70 , 00 
00  NS  I GN  =  NS 1 GN 1 *NS 1 GN? 

I  I- (NS  IGN)  HO,  HO,  70 
70  NSIGNMNSIGN? 

N  I  T  =  N I  T  4  l 

N1  Tl)  |  INI)  SOLUTION  IN1IKVAL. 

X -X  4  SI  GNF'OX 
GO  TO  103 

G«*.9»*1NTI  RPIll  ATIIIN  MIR  SOLUTION. 

HO  NTYPE-? 

N IT  ■ N ! T  +  1 
XSAVl  X 

RAT  10  -  I  XPOS--XNE  G  )  /  (  YPI1S- YNEG  ) 

X  -  XNI  1,4  R  A 1  III*  I  YGIVEN-YNL  G) 

E ,+*t**ACC  El  FR  AT  I  ON  III  CONVI  RGI  NCI  01  IT  ERA1  ION--REF  .  WfGSIEIN,  NBS. 

A  =  1 . )  /RATIO 

IMA-).))  H7-,HH,B7 
R?  0  -  A/  I  A-  1  .0  ) 

XWGST  N  •-  IMYSAVI  4  (l.O-OMX 
1 E  ( XNI  G- XWGST N )  H 9 , HO ,  HH 
H9  I  II  XWGST  N-XPlTS  )  H(,+  HO,HH 

HO  X*XUI-MN 

HH  I  I  1  AH1,  1  X--XLAVI  )  -  IRKORX)  90,90,  )0|| 

90  NT  YPI  3 
100  HI  I  OR  FI 
i  NO 


ITER  TO 
ITER  70 
ITER  TO 
I T  [  R  BO 
ITER  BO 
ITER  00 
ITER  70 
ITER  P O 
TTFR  90 
1 T[ R  100 
ITER  110 
ITER  170 
ITER  130 
ITER  190 
ITER  ISO 
ITER  100 
ITER  170 
ITER  1  Ft  0 
ITER  190 
ITER  700 
ITER  710 
ITER  770 
ITER  730 
ITER  7 b 0 
ITFR  7  BO 
ITER  700 
ITER  7 70 
ITER  7RH 
ITER 

ITER  3(  i 
ITER  310 
ITER  370 
ITER  330 
111  R  3B0 
I TE  R  3 BO 
I  I FR  300 
ITI  P,  370 
ITER  3M0 
ITER  390 
ITER  BOO 
ITER  BIO 
ITER  B  7  0 
ITER  930 
IT l R  990 
ITI  R  9 BO 
IT  I  R  900 
IT  I  R  970 
ITER  9  Ft) 
ITER  990 
HER  BOO 
ITIP,  BIO 
ITER  B  ?  0 
IT1R  B30 
ITER  B9(l 
ITER  BBO 
ITER  BOO 
ITER  *,70 
I  Tl  R  OHO 


BC 


nnc~ionoor»no 


AHIPNUIX  A.  T  >|  t  * 

mim.viimTIN*  ah  T  ^ 


S  0  H  H  iHiT  IN>  A  '•  r  ■  i  ..*.  »ma 

1 


A  *  I  “  r 


»  -  r  e  -  *  e  t 


>  9  •  1  t  o  •  c  *  1>  « 


[  T  |  ■ 


’  «  -  » 
i  :  t 


I  T  fc  **  . 


;  A  R  I  A  p  i  ♦  ^  «  « 


,.AMMA  -  XAT  !'■  I )»-  '  J  ►  I  C  A  7  ■  . 

PMM  -  INITIAL  “A,  -  >U-  AT  M*TI'»\  1. 

VMTl.HhT]  ^  C  "•’«()  I  NAT  hS  0»  T  )\  hl-ATTAfl. 

ANGH  T  1  =  INITIAL  HUAfTAlt  ANG_t  Al  SUr  |I«N  1, 

MUTIVI  AN"  |N  W  Af1 2  ANr- 
XHT?,K0T?  =  I  INAL  POINT  UN  RI)AT7A]l. 

NSHAPP  =  SM  SUHKOUT  |M  ♦  hTC.NST*. 

NPRlNT  =  -1  UR  0„  H.H.P.  DATA  NOT  pw|NHI>. 

♦It  P.fl.P.  DA  7  A  PR  l  Me”, 

NdCPTS  =  MU«ftF«  OP  I  1  “C  HAH  •  POINTS  CALCULAlfcO  ON  CHAR.  IHK0UG'« 
Nf-RROR  =  Sfc  ^  MIHROUIINI  *87lTl-R*. 

***(UITPUT  DATA  (IN  (1RDPK1*** 

INPUT  DATA  TO  A 13  T  S 


X 
K 

1  HtTA 
NOT  P 


*  LONGITUDINAL  COORD  I NA  M  UP  HOUND  ARY  POINT. 

«  RADIAL  COOKDINAlh  OP  HOUND ARY  POINT. 

-  LOCAL  PLOW  A NOLI  AT  BOUNDARY  POINT  (IN  Dl  GRIPS). 


T  HP 
TOP 


II-CUAK.  MATA  THROUGH  (XIU?,RBT2)  l S 
PASTPR  PROGRAM  THROUGH  ^COMMON*  IN  17 


TRAN’ 


PRMSP  ( I  MS, GAMMA ) * 
(-MNMSP  I  PMS  t  GAMMA  ) 


1 


uimpnmon  PM H (  IDO 
1  p 3  ( b ) ,  c  1 1  r»(  s  ) 

COMMON  PMBiCNARI 
CALL  HTCNSTIXHT1 
■*** INPUT  DATA,  SUMP 
CALL  UUTBT1 (GAMMA 
1  Cl.C? 

»***M  V  INITIAL  VALID 
Nf.llT  O-  3 
NMf.PT  S-  1 
N  I  *  l 

Pk 1 01 i PRMSP ( IMS  1 
I  MNl  -  i  MK'MST  (  I  MS  I 
■  4  *  *  Mi  IMH  P  K  OH  POINTS 
A  f  I  X  H  I  7  v  R  H  T  ?  I  IS 


(  1 .0-  (  (GAMMA-  I  .0  )  /  (  GAMMA*  1.0)  )  * l: MS ♦  * 7  )  *  * 

(  GAMMA/ (GAMMA-1.0  )  ) 

=  SORT  (  (  ( 2.0V (t MS** 2)  ) /(GAMMA *1.0 >  I  / 

<  1.0- l  ( GAMMA- 1 .0) /<  GAMMA +1.0  )  )* ( PMS**?  )  )  ) 

S,7),  CHARM  *5 .30  )  ,  CH AR  P ( b , 30 )  f  IMIM,  l\?  {  b)  , 

CHARI* «  P  1  »  P  7  ,  P  3 

RHT 1 , ANGBT l , XH T 7 . Krt T 7 , N SH A  PH ?C!f C?7  C3  ‘ 

OUTPUT  DATA,  ANO  COLUMN  HEADINGS  AR  L  PR  I  NTH). 
,1  MSI  iXHT  1  fRBT  l  ,  ANGBT  1  f  X  HI  7 ,  R  GT?  »  NSHAP  P  , 

,  C  3  ,  N  P  R  I  N  T  } 

S. 


GAMMA  ) 
GAMMA  ) 
CALCOl.A  T  PD 
SPPC  IP  M  D 


ON  T  HI 
HPKl  . 


1  I  (.OAK  ACT  PR  I  M  I  C  MR  . 
(LIMIT*  MAX.  =  30). 


:  -  ' 

- 

j  -  ' 

*  c  -  ’ 

- 

A 

•i  -  ‘ 

A  - 

^  i-  T  • 

-  „ 

4  U  *  «. 

•  K 

*  ’  'N 

I  7* 

400 

l  HO 

1  «' 

t « r  s 

7  00 

A  ►*  •  S 

/10 

A  -  '  S 

,V  ‘ 

AML 

;  to 

£  *  T  S 

/••«) 

7  so 

«P  *S 

2*0 

Af-  T  S 

?  '0 

AML, 

/  HO 

AMS 

?‘>0 

M  APTS 

3(10 

AMS 

Tin 

AMS 

370 

AM  S 

3  30 

AMIS 

340 

AMS 

330 

AMS 

3G0 

APTS 

3  70 

AMS 

3  HO 

ARTS 

300 

) 

AIMS 

4  00 

AMS 

410 

APTS 

470 

AMS 

4  30 

APIS 

44  0 

AMS 

4  SO 

APTS 

4  GO 

APIS 

470 

APTS 

480 

APTS 

4  VO 

AHTS 

bOO 

A  B 1  S 

MO 

AHTS 

s?o 

A  H7  S 

S30 

AHTS 

S40 

AHTS 

bbO 

AHTS 

b  GO 

AHTS 

b  70 

AHTS 

bHO 

AHTS 

b90 

AHTS 

GOO 

G 

AH  T  S 

MO 

AHTS 

G  7  0 

AH  1  S 

G  3D 

H  I 


/ 


I 


APP1NU1X  A.  TWO  ST  RP  AM  AX [SYMMETRIC  BAST  PRKSSUKR  PROGRAM 

SDRRDUT  1  Nl  ARTS  USARPP-?) 


UMm  =  ^ 

t**<**Hlk  Uhlf-HRM  K.Ow. 

10  IMSMHST 

dr  =9  .  )  ?*RIU  1 

OX » SORT  <1  MN1  **7~\  .01  «M»U 
no  TO  TO 

INITIAL  VAUIK  AT  (XM1»HM11  INTO  1 HR  PMR  ARRAY, 

* )  pmr  ii  ♦  1 » i )  -  xfu  i 
PMR  I  )  ,  7 . 1  )  *HM  1 
PMR  C  1 ♦  3,  1  J  *1  MS 
P«M  I  , 1  1*0.0 

I  MARS  l  ANWM  H  -  1  .01-- '\)  40,40, SO 

f  ***<  MPUTTAl  L  WITH  /I  k(|  INITIAL  TURNING  ANf.U  . 

4)  K  ) 

ill  TH  70 

'  W  AN  AnMHPDV  WITH  INITIAL  TURNING  aNOLM 

s>  p  IAN'. Mil  N?,s?t*,A 

A  ROAM  AIL  (lUIA?f  Nir.ATIVMa 
S7  KMARS  I1)  JR*  ANGRl  1  )  ♦  1  .0) 

GO  TO  SN 

r  *<.«*•  APPROXIMATE  ANALYSIS  HIH  A  U.AM  IRrlA?l:  POSHIVt). 

S  <♦  K  f  1 

•*6  pk  »  ;< 

l » T  A- ANf.B  1  1  /»  K 

(  **  ***  r  ALCm.  A  T  i  ON  m  CHAW,  ARRAV  oat  a  1  OR  POINTS  lm»ko  AMO  N=  ]  . 

no  ^0  Lr  1 1  < 

PMRU  .4  1  Mil  )  *  PMR  I  L  i  Ml 
PMftll  +T,?M 

PMR{  H  1 ,4,  IPPMfU  l,4,1  J  +  OTA 

M>  W(l  *  1  1  I  **>  MS  PM  PMR  1  1 , 0  »  1  )  t  PMM  1,4,1  >  ,PRR(LM  f  M  1  )  ,  GAMMA  ) 

1  IS  NOMIU  R  llfr  I  AM  1 1  Y  M  CHAR,  I  OK  SWNMVlnRD  IXPANMON, 

70  K  1  -  K  *  > 

INITIAL  BOUND  AM  Y  POINT  MATA  IS  PRINT!  D„ 

DO  HO  Ms  1,4 
HO  PIIMIsPMMKl.H,!) 

CALL  ,\  MN1 , HR  10 1 »  P3 , N 1  ,  NC.llUl ,  np  w  1  NT  ,  CM 

f***.**THI  I  LOW  »  1  f  L  *  >  C  ALGOL  A  I  IONS  ARI  NOW  MAM  ALONf.  FAMILY  1 
C.  CDARACT!  RI  M  JCS  START  INC  I  ROM  1  HI  INPUT  POINTS  ON  TH!  SiJIU)' V 1 IH  r> 

(.  INITiAL  iAMU.Y  I  OK  THI  (■  I  R  S  T  AND  SORSl  OOi  NT  AXIS  POINTS, 

R  ?  N I  r  N I  *  1 

t  JCAirilLAT  ION  Of  THI  INITIAL  II  -  C  HAH  AC  T  I  R  l  ST  t  L  DATA  I’llllH. 

(.*****L<>  AD  CURRENT  I  I -C.OAKAC  1  1  «  I  S  Y  l  C  S  DATA  POINTS  INTO  PMR  ARRAY, 

MB  PMIM  Mlt?  )'PMR  I  1  ,  1  i  1  )  «*■  DX 

PMH  <  Uo?)  3  PMR  (  1  ,  ?  ,  |  !  4  OK 

PMH(  }rl  MS 

PMIM  1  ,  A,  V  )  -PMlp  1  ,  ,  1  ) 

mi  to  (o )  ,<n  ■  ukj i ,  Nf.mo 

VI)  1)0  7  7  M-.  1  ,  R 
v;>  f.  1  I II €  M)  ~  PMR  (  l  ,  M ,  7  I 
GO  TO  VH 
DO  ON 

'R.  POR(  1  ,m,  ;m  =  r.  I  UK  M  | 

RH  H IK)  l 4 T , 1 4) , 100 

«« «(,  A1.C  111  AT  IONS  AMI  HIM  ID!  UJRPINT  N-lli  POINT  ON  Till  1N111A1 
'  I  AMU  Y  II  CHAR  A(  1(  R  I  S  T  l  C  . 

I, 

10*)  DO  in  l.-itK 

C .««**4*C  At  C.ULAT  I  f  II  ;f;  A  R  I  RliH  HU  CORK!  NT  L-T»*  IVPANSIOM  I  N(  RIMINI, 

L  *4  l  OAh  DATA/  Mill)  POINT  (.  A  U.  D1  A  T  I  UN  /  STOP!  DAT  A, 

(.  A  L  I  Mr  0  AT  A  I  l,LiL+l»l  R  .  K  P  T  S  ) 

CAt  l.  I  P  *,  (  HAMM  A  t  PI  RPfTR  ) 

I I  ini  kkim  )  7  to  fi)n,no 

no  CAM  M'.flA  1  A<  /  ,1  i  I  ♦  l  ,KP  I  ! 

I  ^  'J  <  *  All  Mill)  POINT'.  UN  N  -  I H  f  AM  ]  I  /  ]  f.HAl-  ,  H  AVI  HUM  TA!f  H|  AIM). 


PAM  , 

1 

w 

-6 

ABTS 

640 

APTS 

6  SO 

ARTS 

660 

APT  S 

67  0 

APIS 

6  BO 

AH  T  S 

6  VO 

AP  I  S 

700 

APIS 

710 

APIS 

770 

APIS 

710 

ARTS 

740 

ARTS 

7  SO 

ARTS 

700 

AIM  S 

7  71) 

ART  S 

7  BO 

ARTS 

7  VO 

ART  S 

BOO 

AH  1  S 

MO 

APTS 

H  ?  0 

ARTS 

R30 

apt  s 

RAf) 

ART  :» 

H  SO 

AH  T  S 

HM) 

ARTS 

8  70 

ARTS 

HBO 

AH  T  S 

UNO 

AM  S 

«on 

ARTS 

VI  0 

ARTS 

07  0 

AIMS 

03  0 

A  »*  T  S 

V40 

AMS 

VSQ 

AMS 

06  0 

MM  S 

0  70 

ARTS 

VHO 

ARTS 

wo 

AM  MOOO 

AM  S 

inio 

AMM0?O 

AMS 

1  ow 

A  P  1  S 

]  o^o 

ARTS 

1  (1*jO 

AP  T  S  1  £)M) 
AM  SI  070 

ARTS 

1  OHO 

AH  1  n  (IDO 

aim  si  inn 

AMS 

1110 

aMSII  ?  0 
A  M  si  1  V) 
A  PM  S  1  1  40 
AM  SI  l  SO 
APTS  1160 

AIM  \ 

I  1  /  0 

APTS 

1  l  HO 

AH  f Ml  VO 
AIM  SI  POO 
ART  SI  7 10 

ARTS 

1  ??0 

ART  SI ? 10 
ALT  S 1 740 

AIM  ‘ 

1  /Ml 

AIMS 

1  ?/■« 

AIM  S 

1  1" 

A  P  M  I 
MHO 


i ; 


f.o 


C  *»• 
f 

c 

(. 

1 

I 

1  : 
(  *  < 

1 

1, 

1 

‘  *v  I 


(  *  « 


o  o 


API’ I  NO  IX  A. 
SI1I1HUIIT  I  Nl  ARTS 


TWO  STRIAM  AXJSYMMITHIC  BASl  PKIS'URI  PROGRAM 
(  1  SARPP-?  ) 


PAGI  A-.'1. 


gii  t  i)  n  o  ,  14> ,  1 20  ) ,  ngoi  u 
l**«-»*STM«l  B0AT1A1L  I  I -CHARACTL- R  I  ST  1C  DATA. 

1  ?')  NlK.I’T  S'NIICPT  S*  1 
DU  130  m»1,4 

130  CHARI  I  M ,  NUC  PTS  1  =  l>3  I  M  1 
c  *»<  »  CHAR  AC  T  PR  I  ST  1  r.S  1 1 A  1  A  SHIM. 

CALL  MCDATAI  3,L  1  ,  L?  ,  L3.KM  I 
I  [  I  Nile:  PT  S  -  I.1M1T1)  HP  ,  Poll,  POO 

DATA/  BOUNDARY  POINT  CALCULATION/  STHRI  DATA. 

1  AO  CALL  MCOATAI 1 ,Kf 1 ,K+1,L3,KPTS) 

CALL  RTRPSI GAMMA , P 1  ,  PP  ,  P3  ,  NSHAPI  ,  C  1  .  C  ? .  ('.  3  i  NL  RRI1R  1 
IHNI  HHIIR  1  P.n  ,  1  A  A  ,  1  A  A 

C-  ■****C11NTINUP  BOATTAIl  CALCULATION,  ITLRATI  FOR  I -CM  AR  AC  )  t  R  I  S  T  I  C 
C  THROUGH  TUL  HOATTA1L  l  Nil  POINT  IXKTP.KMP),  OR  CnlCULAT!  Till 

1  I -CHARACTI R I  ST  1C  ORIGINATING  A1  T Ht  POINT  (XHT?,RRT?1. 

1AA  CALL  RT  ITI  R  (  XFM  1  ,  XR1  2  ,  l’3  ,C  1  1  D»  NGUIM.NI  PROP  ) 

I  F  I  N!  RROR  1  P  JO  ,  1  AG,  )  AG 
1  A G  GO  TO  I  1 7J ,OM, ISO  )  ,  NGU10 
C  t  x  *  **  LOAD  FIRST  BOATTAIL  1  I -CHAKACT  t.K  I  S  I  1  C  POINT. 

1  GO  DO  1(A)  Mil,  A 
160  CIIAKL  in,  1  I  =  P  3  (  M  1 
170  CALL  MCI1A1  A(  P,L  1  ,  L?,K42  ,KPT  S  1 
C«’'**#1HI  CORK!  NT  BOUNDARY  PCI  I  NT  DATA  IS  NOW  PRINTLI). 

CALL  DIM  IU  PI  GAMMA,!  MSI  ,  1  MN1  ,  PR  101  *  P3r N|  ,  NC.tl  TO  ,  NPR  I  NT  ,  Cl)  I 
C  ***«*CHARAr.Tl  R  I  ST  ICS  0A1A  SHIM. 

CALL  MCOATAI 3, LI, LP,L3,K+?1 

(  »<•<  RAAOVANCt  INIMX  HIK  NF  XT  1  N  I’Ll  T  PUIN1  (IN  INITIAL  CHAR  AC  T  I  K  I  S  T  I  C  . 
K  =  K+  1 
0(1  1(1  UP 
POO  RtTOKN 
I  Nil 


ABTS1PB0 
A  111  S  1  P»0 
A  FIT  SI  3  00 
AF'TSl  310 
ART  SI  IPO 
ART  .1  1  330 
ART  SI  3 A 0 
ARTS!  3  G  0 
A  H  1  S  1  1 G  0 
AIM  S  1  370 
AHTS1 3R0 
AIM  SI  TWO 
AIM  S  1  Aon 
AIM  SI  A1  0 
A IM  S  1  A  P  0 
A  R  T  S  )  A  3  0 
A  H  T  S  1  A  A  0 
A HT  SI  ABO 
AIM  SI  AGO 
AIM  SI  A 70 
AIM  SI  AIK) 
AIM  S  1  A'HI 
AIM  RI  GOO 
A  h  1  S  1  G  1  0 

Aim  si  bpo 

AIM  SI  S30 
AIM  SI  Gao 
AR  T  S 1  GAO 
AIM  SI  AM) 
ABTSI A  7  0 
AIM  SI  ARO 
AIMS1  A  i,o 


ooc»oooor>r>oooo<~> 
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APPENDIX  A.  TWO  STREAM  AXISYMMETRIC  BASE  PRESSURE  PROGRAM 

SUBROUTINE  BTCNST  (TSA9PP-21  PAGE  A-26 


SUBROUTINE  BTCNST ( XBT 1 , RBT 1 , ANGST  1 . XBT 2 , R BTZ , NSH APE , C 1 , C2 , C3 ) 
*** VARIABLES*** 

XBT I  =  INITIAL  LONGITUOINaL  BOATTA1L  COORDINATE. 

RBT  I  ■=  INITIAL  RADIAL  BOAT  T  A  I L  COORDINATE. 

ANGBT1  =  INITIAL  BOATT AIL  TURNING  ANGLE,  RADIANS.  CCWI+). 

XBT2  «  TERMINAL  LONGITUOINAL  BO ATT  A 1 L  COORDINATE, 

RBT  2  =  TERMINAL  RADIAL  BOATT  A  I L  COORDINATE. 

NSHAPE  <=  1,  OGIVE  BOATT  A I L  • 

=  2,  PAR A8QL I C  BOAT  T  A  I L • 

=  3,  CONICAL  BOAITAIL. 

C1.C2.C3  =  COEFFICIENTS  IN  THE  3UATTAIL  PROFILE  EQUATIONS. 


SLOPE1*  TAN  (ANGBT1) 

GO  TO  (10,20,301,  NSHAPE 
C*****OGIVE  BOATTAIL  INSHAPE=1>. 

10  C1--  (0 .5  I*  (  (  XBT  2- XBT  1  )  **  2-2 . 0*SLOPE  1*R  BT 1  *  (  X  RT2-X  BT  1 )  +RBT2**2 

1  -RBT 1**21  /  <RBT2-R0T1-1.O*SLOPEI*(XBT2-XBT1)  ) 

C2=  XBT 1  +  SL0PEI*(RBT1-C1) 

C3=  ( XBT 1-C2 1 **2  +  ( RBT 1— C 11**2 
GO  TO  40 

C*****PARABOLIC  BOATTAIL  (NSHAPE«2). 

20  Cl*=<  RBT2-RBTI-SL0PE1*(XBT2-XBT1  1  1  ! 

1  (  XBT1**?+XBT2**2  ~2.0*XBT1*XBT2  ) 

C2«SL0PF1  -2.0  *C1*XBT 1 

C3-RBT1  -  (  C  2*XBT 1  +  C1*(XBT1**2!  1 

GO  TO  AO 

C*****c.ONICAL  BOATTAIL  (NSHAPE*3I. 

30  C  1*RBT  I 
C2»SL0PF1 
C3*Xim 

RBT2=RBT1+SL0PE1*(XBT2-XBTU 

C 

AO  RETURN 
END 


BTCN  10 
BTCN  20 
BTCN  30 
BTCN  AO 
BTCN  50 
BTCN  60 
BTCN  70 
BTCN  BO 
BTCN  90 
BTCN  100 
BTCN  HO 
BTCN  120 
BTCN  130 
BTCN  1  AO 
BTCN  150 
BTCN  160 
BTCN  170 
BTCN  180 
BTCN  190 
RTCN  200 
BTCN  210 
BTCN  220 
BTCN  230 
BTCN  2 AO 
BTCN  250 
RTCN  260 
BTCN  270 
BTCN  2  BO 
BTCN  290 
BTCN  300 
BTCN  310 
BTCN  320 
BTCN' 330 
BTCN  3 AO 
BTCN  350 
BTCN  360 
BTCN  370 


o  n  o 


APPFNOIX  A.  TWO  STREAM  AXISVMMETRIC  BASE  PRESSURE  PROGRAM 

SUBROUTINE  OUT  BT  1  (TSAOPP-2) 


SUBROUT I NE  OUTBT 1 ( GAMMA, EMS1 . XBT 1 , RBT ! , ANGBT1 -  X tU 7 , RRT7 , NSW* P E , 

1  C1,C?»C3,NPRINT) 

•'•“THIS  SUBROUTINE  PRINTS  INPUT  OATA,  SOME  OUTPUT  DATA,  AND 
HEADINGS  EUR  THE  BOATTAIL  CALCULATIONS. 

C 

PRMSE ( EMS , GAMMA ) = ( I .0- ( ( GAMMA -1 .0) / ( GAMMA + 1 .0) )*EMS**?)9* 

1  I  GAMMA/ { GAMMA-1 • 0 ) ) 

EMNMSF ( EMS, GAMMA ) =SQRT  I (  I 2. 0* I EMS* » 2  >  ) / ( G AMMA  +  1 . 0 ) ) / 

1  I  l.O-I  (GAMMA-1. 0)/(GAMMm  +  i.O>  ).  |  £MS**2>  )  ) 

IF(NPRINT)  10,10,100 
100  EMN1=EMNMSF( EMS1 .GAMMA) 

PRini=PRMSE( E MS  1 , GAMMA ) 

BETAD-57.?95B*ANGBT1 

C 

200  WRITE  (6,1)  GAMMA,  L-MN1  ,  PR  101 

1  FORMAT! 1H1,///,21X,23H  AXISVMMETR1C  BOATTAIL  /, 

1  1 5 X , 30 H  WITH  UNIFORM  SUPERSONIC  FLOW  //, 

2  2 1 X , 20  H  *«*  INPUT  DATA  **»  //, 

3  7X ,  9H  GAMMA  -  F5.3t3X,12H  MACH  NO.  =  FB.3,3  RH  r ,  PO  =  F6.A//) 

C 

500  GO  TO  (2,6,6),  NSHAPE 

C 

2  WRITE  (6,31 

3  FORMAT! 1H  ,19X,27H  *  OGIVE  BOATTAIL  PROFILE  *) 

GO  TO  S 

C 

A  WR1TF  (6,5) 

5  FORMAT ( 1H  ,  19X , 32H  *  PARABOLIC  BOATTAIL  PROF ] L F  *  ) 

GO  TO  B 

C 

6  WRITE  (6,7) 

7  FORMAT!  1H  i I9X  f  30H  *  CONICAL  BOATTAIL  PROFILE  *  I 

C 

B  WRITE  <6,91  XBTl.RBTljBETADjXBT^.RBTr.CI.CB.CS 

9  FORMAT ( 1 H  ,//,7X,  BH  XBT1  «  F6.3,3X,  8H  R BT 1  «  F6.3, 

1  4X,10H  ANGBTI  =  F8.3//,7X,BH  XBT2  »  F6.3,3X,PH  RRT2  *  F6.3//, 

2  7 X , 8H  Cl  =  F7.3,2X,8H  C2  «  F7.3.3X.10H  C3  =  F7.3 III, 

3  20X.37H  ***  BOATTAIL  SURFACE  OUTPUT  DATA  ***  //, 

A  12X, 1HX , 1AX , 1HR, IOX .RHMACH  NO. ,9X,6HP/P1,9X ,9HCP( LOCAL )  //) 

C 

10  RETURN 
END 


PAGE 

A-  2  7 

OB  T  1 

10 

OB  T  1 

20 

OHT  1 

30 

0BT1 

AO 

OBT  1 

50 

0BT1 

60 

OBT  I 

70 

OBT  1 

80 

OBT  1 

90 

OBT  I 

100 

OB  T  1 

110 

OBT! 

120 

OBT  1 

130 

OBT  1 

1  AO 

OBT  1 

150 

OB  T  1 

1  60 

OBT  1 

170 

0BT1 

180 

OBT  1 

190 

OBT  1 

200 

OB  T 1 

210 

OB  T 1 

220 

OB  T  1 

230 

OB  T  1 

2  AO 

OBT  1 

260 

0BT1 

260 

OBT  I 

270 

OBT  1 

2  PO 

OBT  1 

290 

OB  T  1 

300 

OB  T  1 

310 

.  OB  T  1 

320 

OHT  1 

330 

OB  T  1 

3  AO 

OBT  1 

350 

OBTl 

360 

OBT  1 

370 

OBTl 

300 

OBTl 

390 

OBTl 

AOO 

OBTl 

Aio 

OBTl 

A20 

OBTl 

A30 
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APPENDIX  A.  TWO  STREAM  AX  I S YMMET  R I C  BASE  PRESSURE  PROGRAM 

SUBROUTINE  RTBPS  (TSARPP-2)  PAGE  A-2B 


SURRnUT INF  RTRPSt  GAMMA ,P 1 , P 2 , P 3 > NSH APF , C 1 , C 2 , C 3 . N FRROR I 


BOATTAI  L  BOUNDARY 
SUBROUTINE  (  B  T  B  P  S  I 


POINT 


C**<.4eTHI S  SURROUTINF  CALCULATES  A  POINT  P3  ON  THE  BO ATT  A 1 L  WALL 
C-  GIVEN  THE  PROPERTIES  OF  A  POINT  PI  IN  T  HF  FLOW  FIFI_D. 

C 

C  ***VARl ABIES*** 

c 

c  GAMMA  =  RATIO  OE  SPECIFIC  HF  AT  S . 

C  PIIJ1  =  J-TH  FLOW  VARIABLE  AT  THE  POINT  I  WHFRF  1=1,2, OR  3. 

C  P1(J)  AND  P2I =  FLOW  VARIABLES  AT  KNOWN  POINTS  1  AND  2, 

C  P  3  (  J  I  ,  J=  1 ,  S  =  FLOW  VARIABLES  AT  THE  UNKNOWN  POINT  3. 

C  THE  J  SUBSCRIPT  INDICATES  THE  FOLLUW1NG  VARIABLES - 

C  J=1  CORRESPONDS  TO  X. 

C  J=2  CORRESPONDS  TO  R. 

C  J  =  3  CORRESPONDS  TO  MACH  STAR  ( FM s I • 

C  J  =  A  CORRESPONDS  TO  THETA  IN  RADIANS  ( THE  T  ' , 

C  NSH  APE  =  SEE  BELOV). 

C  C1,C2»C3  =  CONSTANTS  IN  T  HF  BOATT  A 1 1.  PROFILE  EQUATIONS. 

C  NERROR  =  A  CONTROL  VARIABLE  FOR  CHECKING  T  HF  POSSIBILITY  THAT 

C  THF  CURRENT  CHARACTERISTIC  MISSFS  I HF  BOATTAI L  AND  AN 

C  ITERATION  IS  REQUIRED. 

C  NERRnR  =-l  ...  ERROR  IN  CALCULATION. 

C  NERROR  =  O'...  NO  ITERATION  REQUIRED. 

C  NERROR  *  1  ...  AN  ITERATION  IS  RFOUIRFD. 

C 

C 

C  POINTS  1  AND  3  APF  ASSUMED  CONNECTED  BY  FAMILY  I  WHFRF 

C  POINT  3  IS  ON  THF  WALL. 

C 

C  THE  BOATT  AIL  PROFILE  IS  SPECIFIED  BY  EQUATIONS  OF  THF  FORM— - 

C 

C  l.  IF  NSHAPE  =  1  OGIVE 

C  R=  Cl  +  SORT (  C 3  -  (X-C?J**2  ) 

C 

C  2.  IF  NSHAPE  =  2  PARABOLIC 

C  R*  C3  ♦  C2*X  ♦  Cl *( X*»2 ) 

C 

C  3.  IF  N SHAPE -3  CONICAL 

C  R=  Cl  +  C2MX-C3) 

C 

C  WHERE  C 1 » C  2 , AND  C  3  HAVE  BEEN  CALCULATED  ERUM  THF  INPUT  DATA 

C  IN  SUBROUTINE  *BTCNST  *. 


ALi'HAF(fMSTAR,GAMMA)=ATAN  (soutiu.o  -  (  (Gamma-i. o)/(Gam,ma+i. oi  I 
l  *( FMSTAR**?)  I /( EMSTAR**2-1 .0) ) ) 

AVGFIA.B)  =  (A  +  BI/2.0 

PCOEFF 1 FPSTAH , ALPHA I'EMST AR*TAN  (ALPHA) 

OCOEE F ( NP0 ! NT, RAO ! US. EMSTAR, THETA, ALPHA  I M  (  E MST AR /R ADI  US  I  * 

1  (TAN  (ALPHA)**2!*TAN  ( THFT A ) ) / i 1  AN  (THETA)  *  ! (-1.0) **NPO 1  NT  >  * 

2  TAN  (ALPHA!) 

HQCOEF  ( RAD IUS, EMSTAR, THETA, ALPHA)  =  ( ( EMSTAR /RAO  HIS )*TAN  (ALPHA)* 

1  SIN  ( ALPHA  I *S I N  (THETA!) 

C*<.***t;P01NT  IN  QCOEFF  {  )  INDICATES  THE  KNOWN  PUINT  BEING  USED — 1  OR  2. 

DIMENSION  P1(S),  P2(?>),  P  3  ( *>  I 
C«  ****  ERROR  FLAG  SFT . 

NERROR  =0 
NCOUNT  =0 
NCTMAX=IS 

FM  SMAX=  SORT  (  ( GAMMA+1 .0 ) / ( GAMMA-1 .0 ) I 
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APPEND  I  X  A ■  TWO  STREAM  AXIS  YMMET R  I  C  BASE  PRESSURE  PROGRAM 


SUBROUTINE  RfRPS  ITSABPP-2) 

PAGE  A- 2  9 

CawffseKUOWN  INPUT  DATA  FROM  POINTS  1  AND  ' 

BTBP  6A0 

X  1  =P  1  (  1  ) 

BTBP  650 

R  1=P  1  ( 2  ) 

BTBP  660 

F  MS  1  =  P 1 I  3) 

BTBP  670 

THET1=P1 (A) 

BTBP  6 BO 

R2=P 2 ( 2 ) 

BTBP  690 

FMS2=P2 ( 3 ) 

BTBP  700 

THFT2=P?(4J 

BTBP  710 

c<.«***p OR  AN  INITIAL  ESTIMATE  OF  THE  VALUES  AT  POINT  3. 

BTBP  720 

R  3  =  A  VGF ( R  I  , R  2  ) 

BTBP  730 

EMS3=AVGF:lMS1,FMS2' 

BTBP  740 

THET3-AVGF(THFT1i THET2 ) 

B  IBP  750 

GO  TO  17 

BTBP  760 

TERATION  FOR  VARIABLES  AT  POINT  3. 

BTBP  770 

NSHAPE  *  1,  OGIVE. 

BTBP  7 BO 

1 

A— 1 *0  +  (TAN  I D I FF 1 3  )  1**2 

BTBP  790 

B=2.0 *( R 1-C 1 ) *TAN  (0IFF13)  -2. 0*C2 -2 . 0*X  1*(  T AN  (DIFF13)  1**2 

BTBP  800 

C=  C 2*“2  -  C3  ♦  (  (Rl-Cl )-Xl*TAN  (DIFF13)  )**2 

BTBP  810 

DISCR  =  B**?--4.0»-A’?C 

BTBP  820 

IF(DISCR)  19,19,3 

BTBP  830 

3 

X3=(-B-SQRT  (B**2-4.U*A*C) )/(2.0*AI 

BTBP  840 

R3=R l+< X3-X1 )*TAN  (DJFF13) 

BTBP  650 

THET'i'AT  AN  (  (  C2-X 3  )  /  (  R3-C  1  )  ) 

BTBP .860 

GO  TO  10 

BTBP  870 

c***»»tF  NSHAPE  *  2,  PARABOLIC. 

BTBP  8B0 

4 

A  =  C  1 

BTBP  890 

B  =  C2-TAN  ( 0 1 F  F 1 3 ) 

BTBP  900 

C*C3-Rl*Xl*(TAN  (OtFFX3l) 

BTBP  930 

DI  SCR«=B**2-‘..0*A*C 

BTBP  920 

IF(DISCR)  19,19,6 

BTBP  930 

6 

X  3=  (-B+SQRT  ( R**2-4. 0*A*C ) ) / ( 2 .0* A ) 

BTBP  940 

R3*R l+( X3-X1 )*TAN  (0IFF13) 

BTBP  950 

THET3=ATAN  ( C 2+2 . 0*C 1 * X3 ) 

BTBP  960 

GO  TO  10 

BTBP  970 

C*****!'  NSHAPE  «=  3,  CONICAL, 

BTBP  980 

7 

X.  >  (  C.  1  -  R  l-C  2*C  3  +  X 1  x>T  AN  (01FF13I  !  f  (TAN  (DIFF13I  -  C2  > 

BTBP  990 

R3-R1+IX3-X1) *TAN  (0IFF13I 

btbpiooo 

I F  <  R  3  )  19,19,9 

BTBP1010 

9 

THET3-ATAN  <  C  ?  > 

BTBP1020 

C“B**<'TE5T  ANO  EVALUATION  FOR  HORIZONTAL  I  -CH  AR  ACT  ER  I  S  T  I  C  S. 

BTBP1030 

10 

IFIABS  (DIFF13I-1.0E-3)  11,11,12 

BTBP1040 

c*«**<.FOR  I  HORIZONTAL. 

fi-TBPl  050 

1  1 

PROO 1 3  =  HQC0E  F  ( R 1 3 , FMS 1 3 , TH FT  1 3 , ALPH 1 3 ) * i X 3-X 1 I 

BTBP1060 

GO  TO  13 

BTBP1070 

c*****P0R  I-CHARACTERISTIC,  o.k. 

BTBP1080 

1? 

PR0D13*QC0EFF( 1 , R 1 3 , EMS 1 3 , THET 1 3, AL PH  1 3 ) * ( R 3-R 1 ! 

BTBP1090 

C*****CALCULAT I  ON  OF  FLOW  VARIABLES  AT  POINT  3. 

B  T  BP  1 1 00 

1  3 

EMS3=EMS1-P1 3*( THFT3-THET1 )+PR0013 

BTBP1 110 

01  FFMS* ( (MS 3- SAVE l ) /SAVE1 

BTBP1120 

IF( (EMS3.LT. 1.0)  .OR.  ( EMS3.GT.FMSMCX ) )  GO  TO  20 

BTBP1130 

IFIABS  (DIFFMS)  .LE.  1.0E-4I  GO  TO  IP 

BTBP 1 1 40 

17 

NCOUNT«NCOUNT< 1 

BTBP1150 

I F ( NCOUNT  .GT.  NCTMAX 1  GO  TO  IB 

BTRPU60 

SAVF1  =  EMS  3 

BT8PU70 

R  13*AVGF ( R 1 ,R3 ) 

6TBP11B0 

EMS13*=AVGF(EMS1,EMS3) 

BTBP1190 

THET 1 3* AVGF ( THET 1 , THFT  3  > 

BTBP 1 200 

ALPH13*ALPHAF( EM SI  3, GAMMA ) 

BTBPlplO 

D1FF13*=THET13-ALPH13 

BT8P1220 

P13*PC0EFF( EMS13.ALPH13) 

6TBP1 2  30 

GO  TO  ( 1,6,73,  NSHAPE 

BTBP 1 240 

lfi 

P 3  (  1  )  «  X3 

BTBP1250 

P  3 !  2  )  «R  3 

BTBP1260 

P3(3)=FMS3 

BTBP1270 

j7 
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SUBROUTINE  BTRPS  (TSABPP-2) 
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180 

19 

20 
21 


I E { NCOUNT  ^GT.  NCTMAXI  WRITE  (6,180)  NCOUNT, 01  FFMS 
FORMAT!/,  5X.3TH  *»*  CONVERGENCE  ERROR  IN  *BTBPS*.  t 
1  E10.3,6H  )  ***  n 

RETURN 
NERR0R=+1 
RETURN 


, 1 3 , 2H 


nerror=-i 

FORMAT l // ,23X,32H  *»*  ERROR  IN  *BT8PS*  CALC.  ***  //I 

RETURN 

END 


BT8P1280 
BT8P1290 
RT8P1300 
BTBPI'JIO 
BTBP1 320 
BTBP1330 
BTBP1 3 AO 
6TBP1360 
BT  B  PI  360 
BTBP1370 
BTBP1 380 
BTBP1390 
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APPENDIX  A.  TWD  STREAM  AX1SYMMETRIC  BASE  PRESSURE  PROGRAM 

SUBROUTINE  UUTBT2  ITSABPP-2) 


C 


SUBROUTINE  OUT BT 2  I  GAMMA , FM S 1 , EMN 1 , PR  ID  1 , P 3 . N I  ,  NGOTO ,  NPR  I  NT  ,  CD  ) 


O' 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


***?THIS  SUBROUTINE  PRINTS  THE  CALCULATED  BOATTAIL  SURFACE  DATA 
AT  THE  LOCATION,  N=  NOBPTS,  IN  THE  BPTS(M,N>  ARRAY, 

*** VAR  TABLES*** 


GAMMA 
EMS1 
EMN1 
PR  10 1 
P3(  J) 
THE  J 


N  I 


NGOTO  = 


=  RATIO  OF  SPECIFIC  HEATS. 

=  FREESTREAM  MACH  STAR. 

=  FREESTREAM  MACH  NUMBER. 

=  FREESTREAM  STATIC.-TO-STAGNATION  PRESSURE  RATIO. 

=  BOATTAIL  BOUNDARY  POINT  DATA. 

SUBSCRIPT  INDICATES  THE  FOLLOWING  VARIABLES - 

J=1  CORRESPONDS  TO  X. 

J=2  CORRESPONDS  TO  R. 

J  =  3  CORRESPONDS  TO  MACH  STAR  (EMS). 

J  =  4  CORRESPONDS  TO  THETA  IN  RADIANS  (THETA). 

=  I,  ...  LOCATES  THE  BOUNDARY  POINT  ON  THE  BOATTAIL 
SURFACE. 

1,  NORMAL  BOATTAIL  CALCULATION. 

2,  ITERATION  FOR  I -C HAR ACTER I  ST  I C  THROUGH  (XBT2,RBT2). 

3,  CALCULATION  OF  I  I -CHAR AC  TER  I  ST  I C  THROUGH  (XBT2,R8T2I 


NPR I  NT  =  SEE  SUBROUTINE  *ABTS*. 


PR  MSP  (EMS, GAMMA)1!  1 . 0- (  <  GAMMA- 1 .0  }/(  GAMBIA*  1 . 0  )  )*EMS**2)*» 

1  ( GAMMA/ ( GAMMA-1 .0)1 

EMNMSF ( FMS .GAMMA )=  SORT ( ( ( 2 .0*<EMS**2) > /( GAMMA* l. 0 ) I / 

1  I 1.0-( (GAMMA-1. U)/(GAMMA+1.0> )*(EMS**2) )  ) 


DIMENSION  P3(5) 

I E ( NPR I  NT  J  BO , 80,  10 
10  X*P3<1> 

R=P3( 2 ) 

EMS  =  P3 I  3 ) 

EMN=EMNMS FI EMS .GAMMA  I 

PROBOl-1.3 

PRB1* ( PRMSF ( EMS, GAMMA  I /PR  101  I *PROBUl 
*****THE  LOCAL  PRESSURE  COEFFICIENT  IS  CALCULATED.  CP  IS  BASED  ON 
THE  FREESTREAM  MACH  NUMBER  AND  PRESSURE. 


CPMPRB  1-1.0  )  /<0.5*GAMMA*<  EMN 1**2)  J 
WRITE  (6,20)  X,R,EMN,PRB1,CP 
20  FORMAT  I ?X , F 10 . 5 »  5X , F 10 . 5 , 5X , F 10. 5  *  5X , F 10. 5 1 5X , F 10. 5 ) 

*****THE  BOATTAIL  ORAG  COEFFICIENT  IS  CALCULATED.  CP  IS  REFERENCED 
TO  THE  FREESTREAM  PRESSURE  ANO  MACH  NUMBER  CONDITIONS. 


IF(NI-l)  30.30,40 
C***»* INITIALIZE  CD  CALCULATION. 

30  CD=0 .0 

DENnM=0 .  . 5* GAMMA* (EMN1**2)*(R**2I 
GO  TO  50 

40  AVGPR* (0 .5*1 PRMSF I EMSL, GAMMA  I *PRMSF ( EMS, G AMM A I )*PR0601 ) /PR  101 
CU=CD+< ( I 1.0-AVGPR)*(RL**2-R**2) I/DENOM) 

50  RL-R 

EMSL“EMS 

GO  TO  (BO, 80, 60),  NGOTO 
60  WRITE  (6,70  )  CD 

70  FORMAT! /,25X,?8H  ***  DRAG  COEFFICIENT.  CD  «  FB.5,3H***  ,  // ) 
80  RETURN 
END 
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0BT2 

10 

0BT2 

20 

0BT2 

30 

0BT2 

40 

0BT2 

50 

DBT2 

60 

0BT2 

70 

OB  T2 

BO 

0BT2 

90 

0BT2 

100 

0BT2 

110 

0BT2 

120 

0BT2 

130 

0BT2 

140 

0BT2 

150 

0BT2 

160 

0BT2 

170 

08T2 

180 

OBT  2 

190 

0BT2 

200 

0BT2 

210 

0BT2 

220 

0BT2 

230 

0BT2 

240 

0BT2 

250 

OB  T  2 

260 

0BT2 

270 

OB  T  2 

2  BO 

0BT2 

290 

0BT2 

300 

OBT  2 

310 

OB  T2 

32  0 

0BT2 

330 

0BT2 

340 

0BT2 

350 

0BT2 

360 

0BT2 

370 

0BT2 

380 

0BT2 

390 

0BT2 

400 

0BT2 

410 

0BT2 

420 

0BT2 

430 

0BT2 

440 

0BT2 

450 

0BT2 

460 

0BT2 

470 

0ST2 

480 

CBT2 

490 

0BT2 

500 

0BT2 

510 

0BT2 

520 

0BT2 

530 

OBT? 

540 

OBT  2 

550 

0BT2 

560 

0BT2 

570 

0BT2 

580 

0BT2 

590 

0BT2 

600 

APPENDIX  A.  TWO  STREAM  AXISYMMETRIC  BASE  PRESSURE  PROGRAM 


SUBROUTINE  BTITER  (TSABPP-2) 
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SU8R0UT  1  N6  BT  1  TFR(  XBT1  ,  XBT2.P3.CI  1 0  ,  NGOTO ,  NE  P.ROR  ) 

BT  I  T 

10 

C 

BT  1  T 

20 

C*****SUBR0UTINE  CONTROLS  BOATTAIL  ITERATION  FOR  I -CHARACTER! ST  I C 

BT  1  T 

30 

C 

passing  through  ixbtp.rbt?). 

BT  IT 

40 

C 

BT  IT 

50 

C 

ft»»VARI ABLES*«* 

BT  IT 

60 

C 

BT  IT 

70 

C 

XBT?  =  LONGITUDINAL  COORO.  OF  TERMINAL  POINT  OF 

THE  BOATTAIL. 

RTIT 

80 

c 

P3  =  CURRENT  BOUNDARY  POINT  FRUM  SUBROUTINE  *BTBPSa. 

BT  1  T 

90 

c 

Clin  =  CURRENT  INITIAL  II-CHARACTERISTIC  DATA  PniNT. 

BT  1  T 

100 

c 

NGOTG  *  1,  BOATTAIL  CALCULATION. 

BT  IT 

110 

c 

=  2,  ITERATION  FOR  1 -CHAR  ACT ER 1  ST  I C  THROUGH  (XBT2.RBT2). 

BT  IT 

120 

c 

=  3.  CALCULATION  OF  I  I -CHAR ACT FR 1  ST  I C  THROUGH  (XBT2.RBT2). 

BT  IT 

130 

c 

NERROR  =  -1,  ERROR  IN  ITERATION,  GO  TO  NEXT  CASE. 

BTIT 

140 

c 

*  7,  BOUNDARY  POINT  CALCULATION  O.K. 

RTIT 

150 

c 

=  1,  ERROR  IN  BOUNOAPY  POINT  CALCULATION, 

START  ITERATION. 

BTIT 

160 

c 

BTIT 

170 

c 

BUT 

180 

DIMENSION  P3<5),  SAVEU5I,  S  A  VER  (  5  i  ,  CII0(5! 

BT  IT 

190 

XBT  *  (XBT2-XBT11 

BTIT 

200 

c*.*w#*error  or  iteration  detect  ion. 

BT  IT 

210 

GO  TO  (  10  ,60  >  ,  NGOTO 

BTIT 

220 

10 

IF(NERROR)  20,20,50 

BTIT 

230 

20 

IFIXBT2-P3! 1)1  50,190,30 

BTIT 

240 

30 

ITER=1 

BTIT 

250 

00  40  M-1,4 

BTIT 

260 

AO 

SAVELIM)=CIID(M) 

B7IT 

270 

RETURN 

BTIT 

2  BO 

c»**»»IXfRATjnN  SEQUENCE. 

BTIT 

290 

so 

NGOTCl*  2 

BTIT 

300 

60 

I F ( NERROR 1  70,70,110 

BTIT 

310 

70 

IFIABS! ( XBT2-P3 ( 1) I / XBT 1  - 1 . OE-4 I  190, 190, BO 

BTIT 

320 

ao 

I F ( XBT2-P3 Ill!  110,190,90 

BTIT 

330 

90 

DO  100  M=l,4 

BTIT 

340 

100 

SAVELIM)»CI1D(M> 

BTIT 

350 

GO  TO  130 

BTIT 

360 

no 

00  120  M*  1,4 

BTIT 

370 

120 

SAVER ( M ) »C 1 I D ( M ) 

BTIT 

380 

130 

I F ( ITER- 15 1  160-160,140 

BTIT 

390 

1  AO 

NERR0R--1 

BTIT 

400 

WRITE  16,1501 

BTIT 

410 

150 

FORMAT! //,5X,67H  ***  MAX.  NO.  ITERATIONS  EXCEEDED 

IN  SBR .  BTITER. 

BTIT 

420 

1  GO  TO  NEXT  CASE.  //) 

BTIT 

430 

RETURN 

BTIT 

440 

160 

IFIABS  (( SAVEL (  1  1-SAVER ( l 1 ) /XBT 1-1 .OE-4!  190,190, 

170 

BTIT 

450 

170 

ITER=ITER+1 

BTIT 

460 

c*****intfrval  halve  for  values  on  initial  ii-characteristic. 

BTIT 

470 

DO  180  M=l,4 

BTIT 

4B0 

180 

Cl ID(M)=0 .5*1 SAVEL ( Ml+SAVERIM) ) 

BTIT 

490 

RETURN 

BTIT 

500 

c*****solution  found. 

P.T1T 

510 

190 

NG0TO=3 

BUT 

520 

RETURN 

BTIT 

530 

END 

BTIT 

540 

90 
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SUBROUT I NE  UFLOC(GAMMA,EMS,XC,RC,Nl,CHAR,NFLOW) 

*****  XH i s  SUBROUTINE  SUBDIVIDES  THE  INITIAL  FAMILY  II  CHARACTERISTIC 
ANO  CALCULATES  THE  INPUT  DATA  FOR  POINTS  ON  THIS  CHARACTERISTIC 
FOR  UNIFORM  FLOW. 

*»*VARI ABLES*** 

GAMMA  =  RATIO  OF  THE  SPECIFIC  HEATS. 

EMS  «=  APPROACH  MACH  STAR. 

xc  =  LONGITUDINAL  COORDINATE  WHERE  EXPANSION  IS  CENTERED. 

RC  =  RADIAL  COORDINATE  WHERE  EXPANSION  IS  CFNTFRED. 

NEGATIVE  FOR  INTERNAL  FLOW  AND  POSITIVE  FOR  EXTERNAL  FLOW. 
N1  -  NUMBER  of  INCREMENTS  OF  INITIAL  CHAR.  (MAX.  IS  29) 

CHAR  «=  INITIAL  CHARACTERISTIC  DATA  ARRAY. 

NFUOW  *  1,  INTERNAL  FLOW. 

=  2,  EXTERNAL  flow. 


EMNMSFI EMS. gamma  I = SORT!  ( ( 2 .0* ( EMS** 2 ) ) / ( GAMMA+1 .0  I )/ 

1  I  1.0-1 <GAMMA-i.0)/(GAMMA*1.0) )*CEMS**2) )  ) 

DIMENSION  CHARI  5 . 30  I 
GO  TO  (  10 ,20  I ,  NFLOW 
C*****FOR  INTERNAL  FLOW. 

10  Nl=15 

FN 1 =N1  — 

DR* ABS  (RC1/FN1 
GO  TO  30 

C***»*FOR  EXTERNAL  FLOW. 

20  OR  =0  .0  3*  ABS  (RC) 

30  [)X»DR*SaRT(  (  EMNMSr-I  EMS,  GAMMA  )  )  **2-1.0) 
flPTS*Nl*I 
00  90  N*1,NPTS 
FN*  N— 1 

CHAR  (1,N)  *  XC  +  FN*DX 
CHAR  (2,N)  =  RC  ♦  FN*DR 
CHAR  ( 3 , N )  =  FMS 

90  CHAR  19,N1  =  0.0 
RETURN 
END 
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APPENDIX  A. 
SUBROUTINE  CNELOf, 


TWO  STREAM  AXISVMMETR1C  BASE  PRESSURE  PROGRAM 
( TSABPP-2 ) 


C 
C*» 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  CNF L OC I  GAMMA , EMS , BET  A , XC . RC , N 1) 

*»*FOR  INTERNAL  CONICAL  FLOW,  THIS  SUBROUTINE  SUBDIVIDES  THE 

NON-CHARACTERISTIC  UNIFORM  FLOW  CURVE  THROUGH  THE  POINT  (XC.RC) 
AND  THEN  CALCULATES  THE  INPUT  DATA  ALONG  THE  FAMILY  II 
CHARACTFRI STIC  WHICH  ORIGINATES  AT  THIS  POINT, 

SUBROUTINE  REQUIRES - FPS.APS. 

••‘VARIABLES*** 


GAMMA  =  RATIO  OF  THE  SPECIFIC  HEATS. 

EMS  «  APPROACH  MACH  STAR. 

BETA  *  FLOW  ANGLE,  NEGATlVF,  (IN  RADIANS),  AT  (XC,RC>. 

XC  *  LONGITUDINAL  COORDINATE  WHERE  EXPANSION  IS  CENTERED. 
RC  =  RADIAL  COORDINATE  WHERE  EXPANSION  15  CENTERED. 

N1  *  NUMBER  OF  INCREMENTS  OF  INITIAL  CHAR.  (MAX.  IS  29) 


DIMENSION  PMBf 100.5,2) ,  CHARI(5,30I,  CHARE{5,30),  Pl<5),  P2I5I, 

1  P  3  (  5 ) 

COMMON  PMR,  CHARI,  CHARE,  PI,  P2,  P3 
C 

RCC1NE«RC/SIN  (  BET  A  I 

*»**«SUBDI VI  SION  OF  THE  NON-CHARACTERISTIC  CURVE  INTO  N2  INCREMENTS, 
i  Nl<=2*N? )  .  TO  CHANGE  ThF  NUMBER  OF  I NCRFMENT  S  CHANGE  ONLY  N2. 
(MAXIMUM  N2  IS  14) . 

N2*  10 

FN2-N2 

N1«2*N2 

•••••STORE  INITIAL  DATA  POINT. 

PMB ( 1, 1, 1 )«Xt 
PMB( 1,2,1 )*RC 
PMB( 1,3, 1 ) “EMS 
PMB( 1,4,1  l=BFTA 
DO  10  M=l,4 

10  CHARUM,  1I=PMB(  1,M,1  ) 

•♦•••the  flow  field  calculaiions  are  now  made  ALONG 'FAMILY  I 

CHARACTERISTICS  STARTING  FROM  THE  POINTS  ON  THE  SUBDIVIDED 
NON-CHARACTERISTICS  CURVE.  this  SEQUENCE  IS  NOT  APPLICABLE  FOR 
CALCULATIONS  INVOLVING  OTHER  THA"  THE  FIRST  AXIS  POINT. 

•••••THE  CALCULATED  FLOW  FIELD  DATA  FOR  THE  (Nl+ll  POINTS  ON  THE 

FAMILY  II  CHARACTERISTIC  ORIGINATING  AT  (XC.RC)  WILL  BE  STORED  AT 
CHARI ( M, N ) ,  WHERE  N«1,N1+1. 

DO  40  N*1,N2 

^•••••OALCULATE  data  on  the  NON-CHARACTERISTIC  INPUT  curve. 

I-N*N 

ANGLER*RETA*( 1 .0-EN/FN2 ) 

PMO ( N* 1 ? 1, 2)  =  XC  +  RCONF*< CDS <  ANGLER ) -COS ( BETA) I 
PMBIN+l ,2 ,2 )=RCU  F*S INI  ANGLER) 

PM6(N+1,3,2)'FMS 

PMB(N+1,4,2)*ANGLER 

KPTS=N+1 

DO  20  I*1,N 

L=N-I+1 

c*****LOAD  DATA/  CALCULATE  FIELD  POINT/  STORE  DATA. 

CALL  MCDATAt 1,L+1,L,L3,KPTS) 

CALL  FPS(GAMMA,Pl,P2,P3tNFRRORI 
CALL  MCDATAi ?,L1 ,L2,L ,KPT5) 

20  CONTINUE 

C**»»*$T[)Rt  INITIAL  CHARACTERISTICS  nATA. 
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CNF  L 

10 

CNF  L 

20 

CNFL 

30 

CNF  L 

40 

CNFL 

50 

C  N':  L 

60 

CNFL 

70 

CNFL 

BO 

CNFL 

90 

CNFL 

100 

CNFL 

1  10 

CNFL 

120 

CNFL 

130 

CNFL 

140 

CNFL 

150 

CNFL 

160 

CNFL 

170 

CNFL 

ieo 

CNFL 

190 

CNFL 

200 

CNF  L 

210 

CNFL 

220 

CNFL 

230 

CNFL 

240 

CNFL 

250 

CNFL 

260 

CNFL 

2  70 

CNFL 

2  BO 

CNFL 

290 

CNFL 

300 

CNFL 

310 

CNFL 

320 

CNFL' 

330 

CNFL 

340 

CNFL 

350 

CNFL 

360 

CNFL 

370 

CNFL 

3RD 

CNFL 

390 

CNFL 

400 

CNFL 

410 

CNFL 

420 

CNFL 

430 

CNFL 

440 

CNFL 

450 

CNFL 

4b0 

CNFL 

47  0 

CNFL 

4B0 

CNCL 

490 

CNFL 

500 

CNFL 

510 

CNFL 

520 

CNFL 

530 

CNFL 

540 

CNFL 

550 

CNFL 

560 

CNFL 

570 

CNFL 

500 

CNFL 

590 

CNF  l 

6  00 

CNFL 

610 

CNF!. 

610 

CNFL 

630 
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on  30  M  =  1 ,  4 

30  CHARI  (M,ll+1  )  =  PMB(  1  ,M,  2  I 
C*4<  *#SHI  FT  MFvHU0  OF  CHARACTERISTICS  DATA. 

CALL  MCDATA(3,L1,L2,L3,!<PTSI 
AO  CONTINUE 

c*e»?>?THE  CALCULATION  SEQUENCE  IS  NOW  MODIFIED  FOR  SUBSEQUENT  AXIS 
C  AND  FIELD  POINT  CALCULATIONS. 

C 

DO  90  N=  1 ,  N  2 
NI -N2  +  N 
L=N2+ 1-N 

c<!**s*U)AO  DATA/  CALCULATE  FIELD  POINT/  STORE  DATA. 

CALL  MCDATAI  1,L,L,L3.KPTS) 

CALL  APS  (GAMMA, P2 , P3 , NERROR ) 

CALL  MCDATAI 2, LI, L2.L.KPTS) 

IF(Nl-NI)  70,70,50 
50  N!I=L-1 

LI  I  =  L 

no  60  1  =  1,  Nil 

c*****UOAO  DATA/  CALCULATE  FIELO  POINT/  STORE  DATA. 

CALL  MCOATAI  1 , L 1 1 . U I - 1 , L3 , K PT S ) 

CALL  EPS  I  GAMMA, PI , P2, P3, NERROR ) 

CALL  MCDATAI 2, Ll»L2, LI I-1»KPTS) 

60  L  I  I  =L  I  I  - 1 

c»<.»4#STnRF  INITIAL  CHARACTERISTICS  DATA. 

70  DO  80  M=  I  ,  4 
m  CHARI  IM.NI+l  )=PMB(  1,M,2) 

C**»**SHI FT  METHOD  OF  CHAR AC i E R I S T I CS  DATA. 

CALL  MCDATAI 3, LI ,L2,L3.L) 

90  CONTINUF 
RETURN 
END 


CNF  L  640 
CNF  L  bSO 
CNF L  660 
CNF  L  670 
CNFL  680 
CN^L  690 
CNFL  700 
CNFL  710 
CNFL  720 
CNFL  730 
CNFL  740 
CNFL  750 
CNFL  760 
CNFL  770 
CNFl.  780 
CNFL  790 
CNFL  800 
CNFL  810 
CNFL  820 
CNFL  830 
CNFL  R40 
CNFL  850 
CNFL  860 
CNFL  870 
CNFL  880 
CNFL  890 
CNFL  900 
CNFL  910 
CNFL  920 
CNFL  930 
CNFL  940 
CNFL  950 


APPENDIX  A. 
SUBR0U11NF  PMSBR 


TWO  STREAK  AM  SYMMETRIC  BASE  PRESSURE  PROGRAM 
( 1 SABPP-2) 


SUBROUTINE  PMSBR ( GAMMA ,EMST  AR,PRATIO,BETA,XC,RC,K) 

C 

t,****THIS  SUBROUTINE  SUBDIVIDES  THE  INiTIAI.  PR ANOT L-MEYER  EXPANSION 
C  (WAVES  OF  FAMILY  III  INTO  APPROXIMATELY  1  flEGRFf  INCREMENTS. 

C  INPUT  DATA  IS  THEN  CALCULATED  FOR  THE  METHOD  OF  CHARACTERISTICS 

C  NET  AT  THE  POINT  WHERE  THE  EXPANSION  IS  CENTERED. 

C 

C  SUBROUTINE  REQUIRES - FMSPM. 

C 

r  **4VAR IABLESY** 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


GAMMA  =  RATIO  OF  SPECIFIC  HEATS. 

EMSTAR  -  APPROACH  MACH  STAR. 

PRATIO  =  EXPANSION  PRESSURE  RATIO  (P/POI. 

BETA  =  INITIAL  FLOW  ANGLE  IN  RADIANS. 

XC  =  LONGITUDINAL  COORDINATE  WHERE  EXPANSION  IS  CENTERED. 

RC  =  RADIAL  COORDINATE  WHERE  EXPANSION  IS  CFNTERFD. 

K  -  NUMBER  OF  INCREMENTS  OF  THE  TURNING  ANGLE. 

PMB  =  A  3-DIMENSIONAL  ARRAY,  PMB(L,M,NI,  OF  DATA  FOR  THE 

METHOD  OF  CHARACTERISTICS  NET.  THE  SUBSCRIPTS  L  t  M , N 

HAVE  THE  FOLLOWING  RANGES  AND  MEANINGS - 

L=l,K-.l  AND  CORRESPONDS  TU  THE  L-TH  POINT  OF  THE 
SUBDIVIDED  PRANDTL-MFYER  EXPANSION. 

M=1  CORRESPONDS  TO  X.  _ 

M=?  CORRESPONDS  TO  R. 

M=3  CORRESPONDS  TO  MACH  STAR  (EMS). 

M- A  CORRESPONDS  TO  THETA  IN  RADIANS  (THETA). 

N" 1 , ?  CORRESPONDS  TO  THE  PREVIOUS  OR  CURRENT  I-CHAR. 
L , N* 1  AT  POINT  WHERE  THE  INITIAL  FLOW  CONDITIONS  ARE 
SPECIFIED  AND  THF  P-M  EXPANSION  IS  CENTERED. 


OMFGAF ( A, B i -SORT ( ( HE 1 . 0 ) / ! B- 1 . 0 )  I  *  AT AN  I  SORT!  U**?-l .0  I / 

1  (  (B+l  .T  )/'(B-1.0>~A**-2>  n-ATAN  (  SORT  (  (  (  B+1 . 0  >  / 1  0- 1 .0 1)  * 

2  ( l A** 2-1 .3  >/ (  (B+1.0) /(B— 1.0) -A* *2) I  1  ) 

FMSPRF ( A, B I -SORT ( ( (B+1.0)/(B-1.0) I’M  1 . 0  — A** ( (B-l.OI/B) ) ) 
DIMENSION  PMB  (100,3,2),  CHAR1(5,30>,  CHARMS,  30),  P 1  (  5 )  ,  P215), 
1  P3(5) 

COMMON  PMB,  CHAR],  CHARE,  PI,  P2»  P3 


LM51*EMST AR 

EMS 2* EMS PR E ( PRAT  ID, GAMMA) 

C****tP()R  WAVES  OF  FAMILY  II. 

ANGLER=-(OMEGAF( EMS2,GAMMAI  -  OMEOAF ( gMS 1 , GAMMA ! ) 

IF  ( ANGLER ) 10 , 10, 70 
10  K  =  (  AB  S  (57.?957B*ANGLFP.)  +  l.n) 

GO  I'D  30 
20  K  *  1 

30  F  K  -  K 

DELTA- ANGLER /FK 

L*****kNDWN  INITIAL  INPUT  DATA  FOR  PMB  ARRAY. 

PMO(  1  ,1,1  MXC 
PMB (1,2,1) *RC 
PMB( 1,3, 1)=FMS1 
PMBl 1,4,1 )=BETA 

L*a*«-»CALCULAT10N  OF  ARRAY  DATA  FOR  POINTS  L*l,K+l  AND  N=  1 . 
OC  I  L-I»K 

PMB ( L+l. 1, 1 ) =PMB(L, 1 , 1 ) 

PMBI L+l , 2, 1 t=PMB( L, 2, i I 
PMBl L+l , A, 1 >=PMBI L ,4, 1 !  +  DFLTA 
1  PMBl L  +  l ,3, 1)= FMSPM l EMSl.PMBl 1 ,4, 1 ) .PMBIL+l , A, 1) .GAMMA) 

RFTURG 


END 
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PMSB 

10 

PMSB 

20 

PMSB 

30 

PMSB 

40 

PMSB 

SO 

PMSB 

60 

PMSB 

70 

PMSB 

BO 

PMSB 

VO 

PMSB 

100 

PMSB 

no 

PMSB 

1?0 

PMSB 

130 

PMSB 

1  40 

PMSB 

ISO 

PMSB 

160 

PMSB 

170 

PMSB 

180 

PMSB 

190 

PMSB 

200 

PMSB 

210 

PMSB 

220 

PMSB 

230 

PMSB 

240 

PMSB 

?B0 

PMSB 

260 

PMSB 

270 

PMSB 

280 

PMSB 

290 

PMSB 

300 

PMSB 

310 

PMSB 

320 

PMSB 

330 

PMSB 

340 

PMSB 

350 

PMSB 

360 

PMSB 

370 

PMSB 

3B0 

PMSB 

390 

PMSB 

400 

PMSB 

41  0 

PMSB 

62  0 

PMSB 

430 

PMSB 

440 

PMSB 

450 

PMSB 

460 

PMSB 

470 

PMSB 

4  BO 

PMSB 

490 

PMSB 

500 

PMSd 

510 

PMSB 

520 

PMSB 

530 

PMSB 

540 

PMSB 

550 

PMSB 

560 

PMSB 

570 

PMSB 

5B0 

PMSB 

590 

PMSB 

600 

PMSB 

610 

PMS3 

620 

PMSB 

630 
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FUNCTION  FMSPM ( EMSTAR, THETA ], THE TA2, GAMMA ) 

EMSP 

10 

C 

E  MS  P 

?0 

C**»**TH1S  FUNCTION  CALCOLATFS  THF  FINAL  MACH  STAR 

AF-TFR  A 

EMSP 

30 

C  PRANOTL-MF YFR  EXPANSION  OR  COMPRESSION  GIVEN 

INITIAL 

M* 

EMSP 

AO 

C  AND  THE  TURNING  ANGLE  IN  RADIANS. 

FMSP 

‘■0 

C 

EMSP 

60 

C  **<=  VARIABLES  *** 

EMSP 

70 

C 

EMSP 

60 

C  EMSPM  =  FINAL  MACH  STAR  AFTER  THt  TURN  OF  (THETA?  - 

THFTA1 ) . 

EMSP 

90 

C  EMSTAR  =  APPROACH  MACH  STAR. 

EMSP 

1  00 

C  THFTA1  =  APPROACH  FLOW  ANGLF  (IN  RADIANS). 

EMSP 

110 

C  THFTA?  =  FINAL  FLOW  ANGLF  (IN  RADIANS). 

EMSP 

120 

c  GAMMA  =  RATIO  OF  SPECIFIC  HEATS. 

EMSP 

1  30 

C 

EMSP 

140 

C  THE  SIGN  CONVENTION  FOR  ANGLES  IS  CW(-)  AND 

CCW1  +  )  . 

EMSP 

150 

C 

EMSP 

1  60 

C 

EMSP 

170 

QMEG A  F ( A i B  )  =  SORT ( ( B+ 1 . 0 ) / ( B- 1 . 0 1 ) * AT  AN  ( 

SQRTU A**2-1.0)/ 

EMSP 

1  80 

1  (  (P.+  l  .0  ) /(  R— 1.0)-A**2)  )  >-ATAN  (  SQRTI((B+1 

.0 1 /( R-l 

.0)  )* 

EMSP 

190 

2  I(A**2-l.J)/((B+l.n)/(B-l.n)-A**2))l) 

EMSP 

200 

C*****StT  INITIAL  VALIIFS. 

EMSP 

210 

NIT  =  J 

EMSP 

2  20 

NITMAX  =  20 

EMSP 

230 

NTYPE=  1 

EMSP 

240 

C*****NTYPE  =  1 ,  INTERVAL  HALVE.  NT  YPE  ~  2 ,  INTERPOLATE. 

EMSP 

250 

RATIO=0 .5 

FMSP 

260 

ANGLE- ( THETA2-THFTA1 ) 

EMSP 

270 

IF(ANGLF)  20.20,10 

EMSP 

280 

C».***HOR  A  RFVERSIBLF  COMPRESSION. 

EMSP 

290 

10  fmsn=i.o 

EMSP 

300 

OMEGAN-O .0 

EMSP 

310 

EMSP-EMSTAR 

EMSP 

320 

GO  TO  30 

FMSP 

330 

c*coa*f-(JR  A  REVERSIBLE  EXPANSION. 

EMSP 

340 

20  EMSN=EMSTAR 

EMSP 

350 

OMEGAN  =  OMFGAF(  FMSN,  (iAMMA  ) 

EMSP 

360 

FMSP*  SORT (( GAMMA+1 .0 )/( GAMMA-1 .0 ) ) 

EMSP 

370 

C*****evaLOATF  OMEGA  FUNCTION  FOR  CONDITION  *2*. 

EMSP 

3B0 

30  0M?GA2= (OMfcGA F ( FMST AK . GA MM A  1 - ANGL E ) 

EMSP 

390 

c*****l)OES  THF  SOLUTION  EXIST. 

EMSP 

400 

I F ( 0MEGA2  )  AO, 60, 70 

EMSP 

410 

40  WRITE  ( 6 , 5 J ) 

EMSP" 

420 

50  FORMAT  (//,  10X ,  ?5H  ***  ERROR  IN  -EMSPM-  *** 

/  ) 

EMSP 

430 

RETURN 

EMSP 

440 

60  EMSPM=1.0 

EMSP 

450 

RETURN 

EMSP 

460 

C****ijNITlALLY  INTERVAL  HALVE  AND  THFN  INTERPOLATE. 

FMSP 

470 

70  NIT  *  NIT  +  1 

EMSP 

480 

i  F  (NIT  .GT.  NITMAX)  C-0  TO  140 

EMSP 

490 

EMST  =  BMSN+R AT  10* ( EMSP-EMSN) 

EMSP 

600 

OMEG AT =0MEGAF(EMST, GAMMA) 

EMSP 

510 

M  FFO- I OMEG A T-0MEGA2 ) /OMEGA? 

EMSP 

520 

I F ( ABS  (DIFFO)— 1.0E-4)  140,140,80 

EMSP 

530 

80  IF(niFFO)  90,140,100 

EMSP 

540 

90  C-MSN-EMST 

EMSP 

550 

OMEGAN-OMEGAT 

EMSP 

560 

GO  TO  110 

FMSP 

570 

100  EMSPcE  MST 

FMSP 

580 

OMEG AP= OMEG AT 

EMSP 

590 

NT  YP  F  =  2 

EMSP 

600 

110  OIFEMS  «  ( EMSP-EMSN) /EMSN 

EMSP 

610 

IF(ABSiniFFMS)  -  l.OE-4)  140,140,120 

EMSP 

620 

i 20  GO  TO  ( 70 , 130 ) ,  NTYPE 

EMSP 

630 
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C»44*<.intFRPOLATE  FOR  THE  SOLUTION. 

130  RATI 0=<nMEGA2-0ME GAN) / ( OMEGAP-OME G AN ) 

GO  TO  VO 

C*****SOLUTI ON  FOUND. 

140  tMSPM=£MST 

IFINIT  ,GT.  NITMAX)  WRITE  (4,150)  NIT.DIEEO 
150  FORMAT! /,5X,34H  *44C ON VERGE NCF  ERROR  IN  EMSPM,  (  ,  13.  2H 
1  E10.3.  6H  )  *=*4  /) 

RETURN 

END 


EMSP  440 
EMSP  650 
EMSP  660 
EMSP  670 
EMSP  680 
EMSP  690 
EMSP  700 
EMSP  710 
EMSP  720 
EMSP  730 
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APPENDIX  A.  TWO  STREAM  AXISYMMETRIC  BASE  PRESSURE  PROGRAM 

SUBROUTINE  UUTeOY  (TSABPP-2) 


SUBROUTINE  OUT BO Y ( N , NPR I  NT , R PT S I 

csae.SUBRnUTINF  PRINTS  THE  CURRENT  CALCULATED  BOUNDARY  POINT  DATA. 
#**VAR IABLES*** 

N  =  NUMBER  OP  CURRENT  BOUNDARY  POINT. 

NPR I  NT  =  -1  OR  0,  C.P.R.  DATA  NOT  PRINTED. 

+1,  C.P.B.  DATA  PRINTED. 

BPTS(M.N)  =  CURRENT  BOUNDARY  DATA. 

M=i  CORRESPONDS  TO  X. 

M-2  CORRESPONDS  TO  R. 

M=3  CORRESPONDS  TO  MACH  STAR  (EMS). 

M=4  CORRESPONDS  TO  THETA  IN  RADIANS  (THETA). 


DIMENSION  BPTS(5,30) 

C 

I F ( NPR I  NT )  2,2.1 

1  X=BPTS(1.N) 

R=BPTSI2,N) 

THETA=57.29578*BPTS(4,N) 

C 

WRITE  (6,10)  X,  R,  THETA 

10  P  OR  MAT ( F 1 5 . 6 ,  F29.6,  P30.6) 

C 

2  RETURN 
END 
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OUTB 

10 

OUTS 

20 

OUTB 

30 

OUTB 

4C 

OUTB 

50 

OUTB 

60 

OUTB 

70 

OUTB 

80 

OUTB 

90 

OUTB 

100 

OUTB 

110 

OUTB 

120 

OUTB 

130 

OUTB 

140 

OUTB 

150 

OUTB 

160 

OUTB 

170 

OUTB 

1  BO 

OUTB 

190 

OUTB 

200 

OUTB 

210 

OUTB 

220 

OUTB 

230 

OUTB 

240 

OUTB 

250 

OUTB 

260 

OUTB 

2  70 

OUTB 

2B0 
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SUBROUTINE  MCOAT  A I  NOP  iLl«L2«L3»KPTS) 

r*****SUBROUT JNE  LOADS »  STORESt  OR  SHIFTS 
C  METHOD  OF  CHARACTERISTICS  DATA. 

r  NOP  =  1.  LOADS  PMB  DATA  IN  P1.P2. 

f  =2.  STORES  P3  DATA  IN  PMB. 

^  -  3,  SHIFTS  PMB  DATA  FROM  I~2  TO  1-1. 

C 

C  DIMENSION  PMBtlOO.5,21.  CHARl(S,30)f  CHARE(5,30), 

1  P3 ( 5 ) 

COMMON  PMB,  CHARI*  CHARE,  PI*  P2*  P3 
C 

GO  TO  (  10  t  30 .50)  .  NOP 


10  DO  20  M=l<4 

p 1 ( M )=PMP( LI .M, 2 ) 

?0  P2(M)=PMB(L2.M,1) 

a PTHRN 


C 

30  DO  40  M=l,4 
AO  PMB I L3  »  M,  2)  =  P3!M> 

RETURN 

C 

SO  DO  70  XI 1*1. KPT S 
DO  60  M=l,4 

60  PMBIKII (M,  1 )=PMBI Kl I «M,  2> 

70  CONTINUE 
RETURN 
C 

END 


PltSl  ,  P  2 1  5  > * 


MC  DA  10 
MCOA  20 
MCDA  30 
MCDA  40 
MCDA  BO 
MCDA  60 
MCDA  70 
MCDA  BO 
MCDA  90 
MCDA  100 
MCDA  110 
MCDA  120 
MCDA  130 
MCDA  140 
MCDA  1  BO 
MCDA  160 
MCDA  170 
MCDA  1  BO 
MCDA  190 
MCDA  200 
MCDA  210 
MCDA  220 
MCDA  230 
MCDA  240 
MCDA  250 
MCDA  260 
MCDA  270 
MCDA  280 
MCDA  290 
MCDA  300 
MCDA  310 
MCDA  320 


98 


ooooooonoooooonor^oooo 


APPENDIX  A. 
SUBROUTINE  FPS 


TWO  STREAM  AXISVMMtTRIC  BASE  PRESSURE  PROGRAM 
( TSABPP-2 ) 


SUBROUTINE  FPS < GAMMA , P 1 , P2 . P3 iNERROR 1 
***»*AX I SYMMFTRIC  FIELD  POINT  SURROUTINE'  (FPS) 


***VARIABLES*** 

GAMMA  =  RATIO  OF  SPECIFIC  HEATS. 

P I ( J I  *  J-TH  FLOW  VARIABLE  AT  THE  POINT  I  WHERE  1  =  1 , 2  ,  OR  3. 

P1(J)  AND  P2(J),J*1|4  =  FLOW  VARIABLES  AT  KNOWN  POINTS  1  AND  2. 
P3(J),J=1,4  =  FLOW  VARIABLES  AT  THE  UNKNOWN  POINT  3. 

THE  ,J  SUBSCRIPT  INDICATES  THE  FOLLOWING  VARIABLES - 

J«=l  CORRESPONDS  TO  X. 

J-2  CORRESPONDS  TO  R. 

J=3  CORRESPONDS  TO  MACH  STAR  (EMS). 

J  =  4  CORRESPONDS  TO  THETA  IN  RADIANS  (THET). 

NERROR  «  -I,  ERROR  IN  CALCULATION. 

=  3 .  CALCULATION  O.K. 

POINTS  1  AND  3  ARE  ASSUMED  CONNECTED  BY  FAMILY  I. 

POINTS  2  AND  3  ARE  ASSUMEO  CONNECTED  BY  FAMILY  II. 

ALPHAF  (  FMSTAR  .GAMMA  )  *ATAN  (SORTHl.O  -  (( GAMMA- 1 . 0 )/( GAMMA+ 1 . 0 ) ) 

1  *< EM  STAR** 2) ) /<EMSTAR**2-1.0) ) ) 

AVGF(A.B)  «  (A  +  81/2.0 

PCOEFFI EMSTAR . ALPHA ) »EMSTAR*T AN  ( ALPHA! 

QCOE  FF1NP0I-NT,  RAD  I  US.  EMSTAR,  THETA,  ALPHA)  «(  (  EMSTAR /RADI  US  )  * 

1  (TAN  ( ALPHA)**2)*TAN  ( THETA ))/( TAN  (THETA)  +  ( ( - 1 . 0 ) **NPO I  NT ! * 

2  TAN  (ALPHA)) 

HQCOEF  (RADIUS, EMSTAR, THFTA, ALPHA)*! ( EMST AR /R ADI  US ) * T AN  (ALPHA)* 

1  SIN  ( ALPHA ) *S I N  (THETAJ1 

£***w*NPOI nt  IN  OCOEFFI)  INDICATES  THE  KNOWN  POINT  BEING  USED— 1  OR  2 
DIMENSION  PI ( 5 1 ,  P2(5),  P3<5) 

C*****ERROR  FLAG  SET, 

NCOUNT.O 
NCTMAX* 15 
NERROR  *0 

EMSMAX  =  SQAT  ( (GAMMA+l.O I / <  GAMMA- 1 .0 ) ) 
t*****KF,0WM  INPUT  DATA  FROM  POINTS  1  AND  2. 

X1*P1< 1 ) 

R1*P1(2; 

EMS1*P1 (3 ) 

THET  1  *  PI  ( •A  ) 

C 

X2«P2( 1) 

R2*P2<2) 

EMS?«P2(3) 

THET2=P2<4) 

C*****FUR  I N! T i A(  ESTIMATE  OF  AVERAGE  VALUES  BETWEEN  POINTS  1-3  AND  2-3 
R3«=AVGF(R1,R2) 

EMS3«AVGF( EMS1.6MS2) 

THET3-AVGF(THET1,THET2 ) 

GO  TO  11 

C*s*w*lTERATION  FOR  VARIABLES  AT  POINT  3. 

1  X3-IR2  -  R1  +  X 1*Y AN  (DIFF13)  -  X2*TAN  ( SUM2 3 ) ) / 
l  (TAN  (DIFF13)  -  TAN  { SUM23 I ) 

R 3* (R 1  ♦  ( X3  -  Xl)*TAN  (DIFF13I) 

C*****TEST  AND  EVALUATION  FOR  HORIZONTAL  I  OR  II  CHARACTERISTICS. 

IFIABS  (DIFF13,-1.0E-3>  2.2,3 
C*****FOR  I  HORIZONTAL. 

?  PROOl 3*HQC0E  F  ( R 1 3 , EMS1 3 , THET 1 3 . AL PH  1 3 ) * ( X 3-X 1 ) 

GO  TO  4 

3  PROD13*OCOEFF( 1 , R 1 3 , EMS 1 3 , THET 13 , ALPH 1 3 ) * ( R 3-R 1 ) 
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FPS 

10 

FPS 

20 

FPS 

30 

FPS 

40 

FPS 

50 

FPS 

60 

FPS 

70 

FPS 

80 

FPS 

90 

FPS 

100 

FPS 

110 

FPS 

120 

FPS 

130 

FPS 

140 

FPS 

150 

FPS 

160 

FPS 

170 

FPS 

180 

FPS 

190 

FPS 

200 

FPS 

210 

FPS 

220 

FPS 

230 

FPS 

240 

FPS 

250 

FPS 

260 

FPS 

270 

FPS 

2  BO 

FPS 

290 

FPS 

300 

FPS 

310 

.FPS 

320 

FPS 

330 

FPS 

340 

FPS 

350 

F  PS 

360 

FPS 

370 

FPS 

3B0 

FPS 

390 

FPS 

400 

FPS 

410 

FPS 

420 

FPS 

430 

FPS 

440 

FPS 

450 

FPS 

460 

FPS 

470 

FPS 

480 

i.  F  PS 

490 

F  PS 

500 

FPS 

510 

FPS 

520 

FPS 

530 

FPS 

540 

FPS 

550 

FPS 

560 

FPS 

570 

FPS 

580 

FPS 

590 

FPS 

600 

FPS 

610 

FPS 

620 

FPS 

630 
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APPENDIX  A.  TWO  STREAM  AX  I SYKM £TR 1 C  BASE  PRESSURE  PROGRAM 


SUBROUTINE  EPS  (TSABPP- 

2) 

PAGE 

A~A2 

A 

IFUBS  ( SUM23I-1.0S-3)  5,5.6 

FPS 

GAO 

C**»**ROR  II  HORIZONTAL. 

FPS 

650 

s 

PROD23*HQCOEF  i R 2 3 , FMS2 3 , THF T2 3 , ALRH23 ) * ( X3-X2) 

FPS 

660 

GO  TO  7 

FPS 

670 

6 

PR0023=0COEFF( 2,R23,EMS23,THET23, ALPH23) *(R3-R2) 

=  PS 

680 

C‘****CALCOLATinN  QP  FLOW  VARIABLES  AT  POINT 

3. 

FPS 

600 

7 

THET3= ( P13*THET1  +  P23*THET?  +  PR0013  - 

PRO023  + 

EMS1  -  EMS2 ) / 

FPS 

700 

1  ! P 13  +  P  23 ) 

FPS 

710 

EMS3  =  EMS1  -  P13MTHET3-THETI)  +  RR0013 

FPS 

720 

Di FFMS  «  ! EMS3-SAVE1I/SAVE1 

FPS 

730 

IF( (EMS3.LT. 1.01  .OR.  ( EMS3. GT . EMSM AX ) ) 

GO  TO  13 

FPS 

7A0 

IFIABS  (Oir-FMS)  „LE.  1.06-A)  GO  TO  12 

FPS 

750 

C 

FPS 

760 

1 1 

NCOUNT  = NCOUNT  + 1 

FPS 

770 

1 F(NCOUNT.GT.NCTMAX)  GO  TO  12 

F  PS 

780 

SAVE  1  «  EMS3 

FPS 

750 

R13=AVGF(R1,R3) 

FPS 

800 

R23=AVGF(R2,R3) 

FPS 

BID 

EMS13«AVGF(EMS1.EMS3) 

FPS 

820 

EMS23«AVGF(EMS2,£MS3) 

FPS 

830 

THET13«AVGF( THET1.THET3! 

FPS 

8  AO 

THET23>=AVGF(THET2,THET3) 

FPS 

850 

ALPH13'ALPHAF( EM SI  3, GAMMA ) 

FPS 

860 

ALPH23'ALPHAF(6MS23,GAMMA) 

F  PS 

870 

P13*PCCEFF ( EMS13, ALPH13) 

FPS 

880 

P23*PCOFFF(EMS23, ALPH23) 

FPS 

890 

01FF13“THFT13-ALPH13 

FPS 

900 

SUM23=THET23+ALPH23 

FPS 

910 

GO  TO  1 

FPS 

920 

C 

FPS 

930 

12 

P  3 ( 1 1  *  X3 

FPS 

9A0 

P3( 2>=R3 

FPS 

950 

P3( 3)*EMS3 

FPS 

960 

P3( A)=THET3 

FPS 

970 

I F ( NCOUNT  .GT.  NCTMAX1  WRITE  16,120)  NCOUNT , 01  FFMS 

FPS 

980 

120 

FORMAT!/,  5X , 35H  ***  CONVERGENCE  ERROR 

IN  *FPS*, 

(  »  I  3  *  ?H  »  y 

F  PS 

990 

l  E10.3.6H  1  «**  /) 

% 

FPS 

1000 

RETURN 

FPS 

1010 

C 

FPS 

1020 

13 

NERRORs-1 

FPS 

1030 

WRITE  (6,1A) 

FPS 

10A0 

l  A 

FORMAT! //,23X,2VH  **«■  ERROR  IN  »FPS*  CALC.  *** 

//) 

FPS 

1050 

RETURN 

FPS 

1060 

END 

FPS 

1070 

IOC 


APPFNOIX  A.  TWO  STREAM  AXISYMMETR1C  BASF  PRESSURE  PROGRAM 


SUBROUTINE  APS  ! T  S ABPP-2 ) 

PAGE 

A-43 

SUBROUTINE  APS  < GAMMA , P2 . P 3 , NERROR > 

APS 

10 

C 

APS 

20 

C*«t**AXI SYMMFTRIC  AXIS  POINT  SUBROUTINE  IAPS) 

APS 

30 

C 

APS 

40 

C 

FOR  THIS  SlJRRnuTINE,  THE  UNKNOWN  POINT  3 

I  S 

ON 

THF  AXIS. 

APS 

SO 

C 

THE  KNOWN  POINT  2  AND  THF  UNKNOWN  POINT  3 

ARE  ALONG 

FAMILY  II. 

APS 

SO 

c 

APS 

70 

c 

**#VAR I ABLES*** 

APS 

80 

c 

APS 

90 

c 

GAMMA  =  RATIO  OF  SPECIFIC  HEATS. 

APS 

100 

c 

FUJI  =  J-TH  FLOW  VARIABLE  AT  THE  POINT 

I  WHERF  1=1 

,2, OR  3. 

APS 

110 

c 

P2< J), J=l,4  =  FLOW  VARIABLFS  AT  KNOWN  POINT 

2. 

APS 

120 

c 

P3(J),J«1.4  =  FLOW  VARIABLES  AT  THE  UNKNOWN 

POINT  3. 

APS 

130 

c 

THE  J  SUBSCRIPT  INDICATES  THE  FOLLOW I NG  VARIABLES - 

APS 

140 

c 

J=1  CORRESPONDS  TO  X. 

APS 

150 

c 

J  =  2  CORRESPONDS  TO  R. 

APS 

160 

c 

J  =  3  corresponds  TO  Mach  STAR  (FMS). 

APS 

170 

c 

J - 4  corresponds  to  theta  in  radians 

( THET ) . 

APS 

1  BO 

c 

NERROR  =  -I,  ERROR  IN  CALCULATION. 

APS 

190 

c 

=  3 ,  CALCULATION  O.K. 

APS 

2  00 

o 

APS 

210 

c 

APS 

220 

ALPHAF(FMSTAR,GAMMAI=ATAN  IS0RTII1.0  -  1 ( GAMMA- 

1.0) / ( GAMMA+1 • 0 i ) 

APS 

230 

1  *1 EMSTAR**2> 1 /( EMSTAR**2-1.0 ) ! ( 

APS 

2  40 

AVGF(A,B)  »  (A  +  BI/2.0 

APS 

250 

PCUEFF (FMSTAR, ALPHA l=EMSTAR*T AN  (ALPHA) 

APS 

260 

OCOEFF( NPOl NT .RADIUS, FMS TAR.THET AP ALPHA )« 

( (EMSTAR/RADIUS)* 

APS 

270 

1  (TAN  ( ALPHA)**2)*TAN  ( THF T A ) ) / ( T AN  (THETA)  + 

If  -1 

.0)**NP0INT)+ 

APS 

280 

2  TAN  (ALPHA)) 

APS 

290 

C****#NPC1INT  IN  OCnEFFU  INDICATES  THE  KNOWN 

POINT 

BEI  NG 

USED — 1  OR  2 

■  APS 

300 

DIMENSION  P2(S),  P  3 ( 5  > 

APS 

310 

c»o*»*(;RR0R  FLAG  SET. 

APS 

320 

NC.OUNT  »  0 

APS 

330 

NCT  MA  X* 1 5 

APS 

340 

NERROR =0 

APS 

350 

EMSMAX=SORT  ( (GAMMA+1.0)/(GAMMA-1.0) ) 

APS 

360 

C*****KM0WN  INPUT  DATA  FOR  POINTS  2  AND  3. 

APS 

370 

X2-P2I 1) 

APS 

380 

R2-P? ( 2 ) 

APS 

390 

EMS2*P2( 3) 

APS 

400 

THET2«P2( 4) 

APS 

410 

R3«0  .0 

APS 

420 

THE  T  3-0  .0 

APS 

430 

C,**<.**FOR  INITIAL  ESTIMATE  OF  AVERAGE  VALUES  BE T WE t N 

P0INT5  2  AND  3. 

APS 

440 

EMS3=EMS2 

APS 

450 

R23*AVGF(R2,R31 

APS 

460 

THFT23-AVGF( TH6T2.THET3 ) 

APS 

470 

GO  TO  5 

APS 

480 

C**#a*1TERATION  FOR  VARIABLES  AT  POINT  3. 

APS 

490 

1  X  3- X2  -  (R2/TAN  ( SUM2  3 !  ) 

APS 

500 

EMS3=EMS2  -  P23*THET2  -  023*82 

APS 

510 

n I  FFMS  *  ( EMS’-SAVEl ) /SAVF1 

APS 

520 

IF( (EMS3.LT. 1.0)  .OR.  (EMS3.GT.EMSMAX) ) 

GO 

TO 

7 

APS 

530 

I F ( ARSIDI FFMS)  .LE.  l.Ofc-4)  GO  TO  6 

APS 

540 

C 

APS 

550 

4  NCOUNT  *NC0UNT  +  1 

APS 

560 

IF  INCOUNT .GT.NCTMAX )  GO  TO  6 

APS 

570 

SAVE1*EMS3 

APS 

580 

FMS23=AVGF(FMS2,EMS3) 

APS 

590 

ALPH23’Al.PHAF(  FMS  2  3,  GAMMA) 

APS 

600 

SUM23'THET23*ALPH23 

APS 

610 

P23  =  PC.0FFF  (  FMS23,  ALPH23) 

APS 

620 

Q23=UC0FFF( 2 , R 2 3 , FM S2 3 , THF T 23 , ALPH23 ) 

APS 

630 

101 


APPFN01X  A.  TWO  STREAM  AX1SYMMFTRIC  BASF  PRESSURE  PROGRAM 


SUBROUTINE  APS 

( TSARPP-2) 

PAGE 

> 

1 

■JN 

GO  TO  1 

APS 

660 

c 

APS 

650 

6 

P3< 1 )=X3 

APS 

660 

P3!2)=R3 

APS 

670 

P  3 ( 3 )  =  EMS3 

APS 

680 

P3(A)=THFT3 

APS 

600 

I F ( NCOUNT  .GT.  NCTMAX) 

WRITE  16,601  NCOUNT, OIFFMS 

APS 

700 

6x0 

FORMAT! /  ,  5X.3SM  CONVERGENCE  ERROR  IN  *APS»,  t  ,13,?H  , 

* 

APS 

710 

1  E 10  *  3  v  6H  )  *«*  /) 

APS 

720 

RETURN 

APS 

730 

C 

APS 

7  AO 

7 

NFRR()R=-1 

APS 

750 

WRITE  <6,R) 

APS 

760 

8 

FORMAT <//, ?3X, 29H  *** 

ERROR  IN  *APS*  CALC.  **«  //) 

APS 

770 

RETURN 

APS 

7R0 

END 

APS 

790 
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APPENDIX  A «  TWO  STREAM  AXISVMMETRIC  BASE  PRESSURE  PROGRAM 


SUBROUTINE  CPRS  (TSABPP-2) 

PAGE  A 

,-AS 

SUBROUTINE  CPBSfGAMMA,  PI,  P2,  P3 ,  NF.RROR) 

CPBS 

10 

C 

C  PBS 

20 

C*w***AX I  SYMMETRIC  CONSTANT  PRESSURE  BOUNDARY  SUBROUTINE  I CPRS ) 

CPBS 

30 

c 

CPBS 

AO 

c 

POINTS  ?  ANO  3  ARE  ON  THE  SAME  CONSTANT  PRESSURE  BOUNDARY. 

CPBS 

SO 

r 

POINTS  1  AND  3  ARE  ASSUMED  CONNECTED  BY  RAMILY  I. 

CPBS 

60 

C- 

CPBS 

70 

c 

**»VAR1  ABLRS*>'* 

CPBS 

BO 

c 

CPBS 

90 

c 

GAMMA  =  RATIO  OF  SPECIFIC  HEATS. 

CPBS 

100 

c 

P I ( J I  *  J-TH  FLOW  VARIABLE  AT  THE  POINT  I  WHERE  1=1.2. 

OR  3. 

CPBS 

110 

c 

FUJI  AND  P2( J),J=1.A  =  FLOW  VARIABLES  AT  KNOWN  POINTS 

1  AND 

2. 

CPBS 

120 

c 

P3(J),J=1.A  =  FLOW  VARIABLES  AT  THE  UNKNOWN  POINT  3. 

CPBS 

130 

c 

THE  J  SUBSCRIPT  INDICATES  THE  FOLLOWING  VARIABLES - 

CPBS 

1  AO 

c 

J=1  CORRESPONDS  TO  X. 

CPBS 

ISO 

c 

J=2  CORRESPONDS  TO  R. 

CPBS 

160 

c 

J=3  CORRESPONDS  TO  MACH  STAR  (EMSI. 

CPBS 

170 

c 

j*A  CORRESPONDS  TO  THETA  IN  RADIANS  (THET). 

CPBS 

180 

c 

NERROR  =  -1,  ERROR  IN  CALCULATION. 

CPBS 

190 

c 

*  0 ,  CALCULATION  O.K. 

CPBS 

200 

c 

CPBS 

210 

c 

CPBS 

220 

ALPHAF(EMSTAR,GAMMA)=ATAN  (SORTdl.O  -  ( (GAMMA-1. OI/IGAMMA+l. 

0)  ) 

CPBS 

230 

1  *(EMSTAR**2) )/<EMSTAR**2-1.0) ) ) 

CPBS 

2  AO 

AVGFIA.R)  «  (A  4-  Bl/2-0 

CPBS 

2  SO 

PCOFF  F ( FMST  AR . ALPHA ) **EMS  T AR  =  T AN  (ALPHA) 

CPBS 

2  60 

HQCOEF  (RADIUS, FMST AR, THETA, ALPHA)  =  i( EM STAR/RADI  US )*TAN 

(  ALPHA)* 

CPBS 

270 

1  SIN  ( ALPHA ) *S I N  (THETA)) 

CPBS 

280 

OCOEFE (NPOI NT, RADIUS, FMST AR , THET A , ALPHA )  =  (  ( FMSTAR/R ADHJS I  * 

CPRS 

290 

1  (TAN  (ALPHA)**2I*TAN  (THETA)  ) /(TAN  (THETA)  +  ( ( -1 .0 ) **NPO I  NT  I  * 

CPBS 

300 

2  TAN  ( ALPHA! ) 

CPBS 

310 

C*»***NP0INT  IN  OCOFEEM  INDICATES  T Ht  KNOWN  POINT  BEING  USEP--1 

OR  2 

.QPBS 

320 

01  MENS  I  ON  Pl(S),  P2(S>,  P3(S) 

CPBS 

330 

C*****error  FLAG  SET. 

CPBS 

3A0 

NCOUNT  =0 

CPBS 

350 

NCTMAX-15 

CPBS 

360 

NERROR  =3 

CPBS 

370 

c#****KNOWN  INPUT  DATA  FROM  POINTS  l  ANU  2. 

CPBS 

380 

X1=P1( 1) 

CPBS 

390 

R 1*P 1 ( 2  I 

CPBS 

AOO 

EMS 1=P 1(3) 

CPBS 

A10 

THET 1 =P 1 (A] 

CPBS 

A20 

C 

CPBS 

A30 

X2=P2 ( 1 ) 

CPBS 

AAO 

R?«P2( 2) 

CPBS 

ASO 

EMS?=P2(3) 

CPBS 

A60 

THETZ*P?(A) 

CPBS 

A70 

c*****FOR  INITIAL  ESTIMATE  OF  AVERAGE  VALUES  BETWEEN  POINTS  1 

-3  AND 

>  2-3 

•  CPBS 

A80 

R3  =  AVGF(R1 i R  2  I 

CPBS 

A90 

THET3*AVGF (THET1 ,THET2 I 

CPBS 

500 

C*****SINCE  POINTS  2  AND  3  ARE  ON  THE  SAME  CONSTANT  PRESSURE 

BOUNDARY, 

CPBS 

510 

EMS3-EMS2 

CPBS 

520 

EKS13=AVGr (EMS1.EMS3! 

CPBS 

530 

ALPH 1 3«  ALPHAF ( EMS13 , GAMMA ) 

CPBS 

5A0 

P13«PCOFEF(EMS13,ALPH13I 

CPBS 

550 

GO  TO  6 

CPBS 

560 

C*****ITERATION  for  VARIABLES  AT  POINT  3. 

CPBS 

570 

1  X3«(R1  -  R?  *  X  2*  T  AN  ( THET23 1  -  X1*TAN  (PIFF13!)/ 

CPBS 

580 

1  (TAN  (THET23)  -  TAN  (0IFF13I) 

CPBS 

590 

R3=  (  R  1  4.  (  X  3  -  XI  )  *T  AN  (DIFF13II 

CPBS 

600 

SIGN  =  R  3*  SAVE  1 

CPBS 

610 

C*»*»*IF  s  J  on  IS  NEGATIVE  OR  ZERO.  AN  ERROR  HAS  OCCURRED. 

CPBS 

620 

IF(SIGN)  B , 8 , 2 

CPBS 

630 

APPENDIX  A. 
SUBROUTINE  CPUS 


TWO  STREAM  AXISYMMETR1C  BASE  PRESSURF  PROGRAM 
tTSARPP-2) 


?  ir-(ABS  (DIFFl3)-l,0F-3)  3,3,4 

3  GO°?n35HQCOEF  (Rl3’EMS13.THETl3.AUPH13».(X3-Xn 
THET3- (  TH£T  1  (  (  EMS3-6MS1-DR0D13  ) /P13  )  ) 

DIFFT*ITHET3-SAVE2)/SAVE2 

^  IF  I  ABS<  01  FFT  )  .LE.  1.0E-4)  GO  TO  7 

6  NCOUNTrNCOUNT+1 
IF(NCOUNT.GT.NCTMAX)  GO  TO  7 
SAVE  1*R3 

SA VE  2'THET  3 
RI3=AVGF(R 1,R3) 

THET13=AVGF(TH£T1 , THE  T  3 ) 

01FF13«THET13-ALPH13 

013=QC0FFF(1,R13,eMS13,THETV3,ALPH13) 

THET23«AVGF< THET2,THET3) 

GO  TO  1 
C 

7  P3(1)*X3 
P  3 ( 2 ) »R3 
P3( 3 )«EM$3 
P3(41*THET3 

70  FORMA??/"  *  1 NOHAX)  WRITE  (6,70!  NCOUN  T ,  0  I  FF  T 

!  ^ol3;6Hx;3*:/*;)CONvERr'ENc6  ekror  in  ,  ,,3,?h  , 

RETURN 

L. 

8  NERR0R--1 
WRITE  (6,9) 

9  RETURn'//,23*,3°H  ***  FRR°R  IN  *cp8S*  CALC.  ***  ff\ 

END 


PAGE  A-46 


C  PBS 
C  PBS 
CPBS 
CPBS 
CPBS 
CPBS 
CPBS 
CPBS 
CPBS 
CPBS 
CPBS 
CPBS 
CPBS 
CPBS 
CPBS 
CPBS  1 
CPBS  I 
CPHS  I 
CPBS  ( 
CPBS  I 
CPBS  f 
CPBS  ( 
CPBS  ( 
CPBS  f 
CPBS  f 

cpbs  e 

CPBS  9 
CPBS  9 
CPBS  9 
CPBS  9 
CPBS  9 
CPBS  9 
CPBS  9 
CPBS  9 
CPBS  9 
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APPENDIX  A, 
SUBROUTINE  OUTPUT 


TWO  STREAM  AXISYMMETR1C  BASF  PRESSURE  PROGRAM 
( TSAHPP-2) 


PAGE  A-A7 


SUBROUTINE  OUT  PUT ( GAMMA , EM S I ,PRATIU,BETA,NPRINT,NFLOW) 

***** SUBROUTINE  PRINTS  INPUT  AND  SOME  OUTPUT  DATA,  AND  COL.  HEADINGS 
EUR  THE  AXISYMMETRIC  CONSTANT  PRESSURE  BOUNDARY  SUBPROGRAM. 

FMNPRF  <  PR .GAMMA )  =  SQRT<  <  2.0/ (GAMMA-1.0  >) * 

I  ( PR** ( -(GAMMA-1.0) /GAMMA ) -1 .0 )) 

EMSMNF  (  EM  N,  GAMMA  )  =  SOP.T  (  (  0  .  S*  (  GAMMA*  1 . 0  )  *  t  EMN**2)  )  / 

1  ( 1 .0  +  0.5*( GAMMA-1.0  I  * (EMN**2 )  )  ) 


1  I  J  *1  (  ) 

EMNMSEI EM S, GAMMA ) *SO«T ( ( ( ?. 0* ( EMS**2) ) /(GAMMA+1.0 I ) / 

1  (1.0-1 (GAMMA-1. OI/IGAMMA+1.0) )*( EMS**2I )  ! 

I E ( NPR I  NT  I  70,70,  10 
BET  Al)  =  5  7  •  2957795*8ETA 
EMN1  =  EMNMSFfEMSl, GAMMA) 

EMN2=EMNPRF  (  PRAT  IC1.GAMMA) 

EMS?*fMSMNF(EMN2, GAMMA  I 
GO  TO  (  20  ,50  I  ,  NF LOW 

IE(ABS  ( B  ET  A i - 1 . OE-A )  30,30,40 

WRITE  ((,,103)  GAMMA,  BETAD,  EMN1,  PRATin, 

1  PRATIO,  EMN2,  EMS2 

FORMAT! 1H1,  ///,  2 1 X ,  31H  CONSTANT  PRESSURE  JET  BOUNDARY  /, 

1  1 9  X ,  36H  FOR  INITIALLY  UNIFORM  AX  I -SYMMt TR l C  /» 

2  24X,  25H  SUPERSONIC  INTERNAL  FLOW  //, 

3  28  X ,  17H  ***INPUT  DATA***  //, 

4  7X ,  9H  GAMMA  *  E5.3,  24X,  15H  BETA  (DEG.)  *  F10.6  //, 

5  7X ,  12H  MACH  NO.  *  E9, 6 ,  17X,  BH  P/PO  »  FB.6  //, 

6  22X,  27H  ***BDUNOARV  OUTPUT  DATA***  //, 

7  7X.8H  P/PO  *  F8 . 6 , 3X , 1 1H  MACH  NO.  *F9.6,3X,12H  MACH  STAR  *F9.6/ 
6  7X,  2H  X,  27X,  2H  R,  23X,  13H  THETA  ( OEG. )  /) 

GO  TO  70 

WRITE  (6,101)  GAMMA,  BETAD,  EMN1,  PRATIO, 

1  PRATIO,  EMN2 ,  EMS2 

FORMAT!  1H1,  ///,  2 IX ,  31H  CE1NST  ANT  PRESSURE  JET  BOUNDARY  /, 

1  19X,  36H  FOR  INITIALLY  CONICAL  AX  1  --SYMMETR I C  /. 

2  24X ,  25H  SUPERSONIC  INTERNAL  FLOW  //, 

3  26 X ,  17H  *** INPUT  DATA***  //, 

4  7X ,  9H  GAMMA  *  F5.3,  24X,  15H  BETA  (DEG.)  •  Fir). 6  //, 

5  7X ,  12H  MACH  NO.  *  F9.6,  17X,  8H  P/PO  *  F8.6  //, 

6  22X,  27H  ***BOUNUAKY  OUTPUT  OATA***  //, 

7  7X.8H  P/PO  *  F8.6.3X, 1 1H  MACH  NO.  -E9.6,3X,1?H  MACH  STAR  *E9.fc/ 

B  7X,  2H  X,  27X ,  2H  R,  23X,  13H  THETA  (DEG.)  /) 

GO  TO  70 

WRITE  (6,102)  GAMMA,  BETAU,  EMN 1 ,  PRATIO, 

l  PRATIO,  EMN2,  EMS2 

EUR  MAT ( 1 H 1 ,  ///,  2 1 X ,  31H  CONSTANT  PRESSURE  JET  BOUNDARY  /, 

1  1 9  X ,  36H  FOR  INITIALLY  UNIFORM  AX  I -SYMMETR I C  /, 

2  24X,  25H  SUPERSONIC  EXTERNAL  FLOW  //, 

3  28X,  17H  *** I NPUT  DATA***  //, 

4  7X,  9H  GAMMA  *  F5.3v  24X,  15H  BETA  (OEG.)  »  F10.6  //, 

5  7X,  12H  MACH  NU.  *  F9.6,  17X,  8H  P/PD  *  F8.6  //, 

6  22X,  27H  ***ROUNDARY  OUTPUT  DATA***  //, 

7  7X.BH  P/PO  -  F8.6f3X.llH  MACH  NO.  *F9.6,3X,1?H  MACH  STAR  *F9.6/ 

8  7X ,  2H  X ,  Z7X,  2H  R,  23X,  13H  THETA  (DEG.)  /) 

RETURN 

END 
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appendix  a. 

SUBROUTINE  TEST 


TWO  STREAM 


AX  I SYMMcTR I C  BASE  PRESSURE 
(TSABPP-2) 


program 


SUBROUTINE  TEST! RLMT ,NST«T ,NFLOW,N, BPTS) 


' . “""f  ™L5*s"rx«EOST!LMEOR“J  T«  JET 

'  less  ,»«  «>.«. 


DIMENSION  BPTS(S,30) 

GO  TO  (  10 ,30  1  ,  NFUOW 
C  10  IFfBPTS(2.N)-RlMT)  20,50,30 
C  20  IF(BPTS(3,N-1)*BPTS(A,N))  50,50,50 
C  30  1EIBPTS12,N1-RLMT)  50,50,40 

C 

AO  NSTMT*  1 
GO  TO  60 

C 

50  NSTMT«2 
60  RETURN 
END 
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APPENDIX  A. 
SUBROUT  INF  SLIP 


TWO  STREAM  AX1SVMMFTRIC  BASH  PRESSURE  PROGRAM 
(TSABPP-2 ) 


SUBROUTTNE  SLIP! EMS1, THETA1.GA MM M.EMS2, THE TA2, GAMMA?, 

I  THETAS. NSTOP) 

C 

TH I S  SUBROUTINE  CALCULATES  THE  SLIPHNE  ANGLE  FOR  THE  OBLIQUE 


SHOCK  RFCOMPRFSS ION  SYSTEM  WHICH  OCCURS  AT  THE  IMPINGEMENT 
POINT  OF  TWO  SUPERSONIC  STREAMS  IF  IT  EXISTS. 

SUBROUTINES  REQUIRED - PRSHK 

***VAR1 ABLES*** 

EMS1  =  MACH  STAR  OF  STREAM  1. 

THETA  1  =  FLOW  ANGLE  OF  STREAM  1  (IN  RADIANS). 

GAMMA1  *  RATIO  OF  SPECIFIC  HEATS  EUR  STREAM  X. 

FMS2  «  MACH  STAR  OF  STREAM  2. 

THETA2  =  FLOW  ANGLE  OF  STREAM  2  (IN  RADIANS). 

GAMMA2  =  RATIO  OF  SPECIFIC  HEATS  FUR  STREAM  2. 

THETAS  «  SLIPLINE  ANGLE  (IN  RADIANS). 

NSTOP  =  1,  EnR  A  SOLUTION. 

-  3,  FOR  NO  SOLUTION. 

NOTE  THAT  T HE T A 1  IS  ASSUMEO  LARGER  THAN  THETA2. 


EMNMSFIEMS, gamma >  = SORT! ( 2 . 0/ ( GAMM A+ 1 . D ) ) *{ EMS**2) / 

1  _  (  l.O-I (GAMMA-1 .01 /(GAMMA+1.0))* ( EMS*»? I )  I 

C«****CALCULATI ON  OF  THE  MAXIMUM  TURNING  ANGLE  FOR  A  GIVEN  APPROACH 


MACH  NUMBER  AND  GAMMA  (NACA  R-1135). 


1  4.0  +  SORT! (GAMMA+1.0)*! ( GAMM A+l . 0 ) * ( EMN** 4 )  + 

2  8.0«(GAMMA-1.0)*! EMN**2)  +  16.011) 

£•**»*£  t  NWA?  CALCULATES  THE  SINE  OF  THE  SHOCK  WAVE  ANGLF  SQUARED 
C  FOR  MAXIMUM  STREAM  DEFLECTION  BE H i NO  THE  SHUCK  (EON  16B). 

C 

OELTAM  ( EMN.GAMMA.SIN2WA) =  ATAN  (  (2.0* SORT ( I  1.0- SIN2WA) / S I N2W A ) * 

1  (  (FMN**2)*SIN2WA-1.0)  I / ( 2 . 0  + 1 E MN* *  2 ) * 

2  (GAMMA  +  1.0  -  2 ■ 0* S I N2 WA ) I  ) 

c*«***I)ELTAM  CALCULATES  THE  MAXIMUM  TURNING  ANGLE  GIVEN  THF  APPROACH 
C  MACH  NUMBER,  GAMMA,  AND  THE  SINE  SQUARED  OF  THE  WAVE  ANGLE, 

C  SIN2WA,  FOR  THE  MAXIMUM  0EFLECT1UN  (EON  139A). 

C 

PROSHK  ( EMN, S1N2WA, GAMMA)  •=  ( 2 . 0*G AMM A* I EMN**2 ) * S I N2WA-G AMMA+ 1 . C 
1  (GAMMA+1.0) 

C*****PRUSHK  CALCULATES  THE  STATIC  PRESSURE  RISE  FOR  AN  OBLIQUE  SHOCK 


GIVEN  THE  APPROACH  MACH  NUMBER,  THF.  SINE  SOUAPED  OF  THE  WAVE 
ANGLE,  AND  GAMMA  (EON  120). 


NIT  «  3 
NITMAX  ■  IB 

EMN  1  «=  EMNMSF  (  EM 51  .GAMMA  1  ) 

EMN2«EMNMSF( EMS2.GAMMA2 I 

PRMAX1  =•  PROSHK  (EMN1.SINWA2  (  EMN  1 ,  GAMM  A1  ),  GAMMA  1  ) 

THET 1M« (THETA1-0ELTAM  ( EMN1 ,G AMM  A1 , S I NWA 2  ( EMN 1 , GAMMA  1 ))  ) 
PRMAX2  »  PROSHK  (EMN2.SINWA?  ( EMN2 , GAMM A2 ) , G AMMA2 ) 

THET2M» ( THETA ?♦ DEL TAM  ( EMN2 ,GAMM A2 , S INW A  2  ( EMN? , G AMMA 2 )  )  1 
C’»*«'**DETf:RMINE  THE  POSSIBLE  SOLUTION  RANGE  FOR  THETAS. 

THETIS  -THETA1 
PRSHK 1=1 .0 
THET2S”THETA2 
PRSHK2M  .0 

IF ( THET2M-THET1M)  600,600,100 
100  IF(THETAl-THET2Mi  120,120,110 
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appendix  a. 
SUBROUTINE  SUP 


TWO  STREAM  AXISYMMETR1C  BASE  PRESSURE  PROGRAM 
( T  SABPP-2 1 
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110  THET 1 S=THET2M 

PRSHK1  =  PRSHKIEMSlt-(THFTAl-THETlS)  , GAMMA  1 ) 

IFIPRSHKW.O)  600,600,120 
120  IEITHETA2-THET1M)  130,200,200 
130  THET2S=THET1M 

PRSHK2  =  PR  SHK ! EMS2,-( THETA2-THET2S) , GAMMA 2 ) 

I E ( PR  SHK  2-1.0)  600,600,200 

C>i****OC)£S  A  SOLUTION  EXIST  WITHIN  THE  POSSIBLE  SOLUTION  RANGE. 

200  I  F (  ! PRMAX1 .LT.PRSHK2 )  .OR.  ( PRMAX2 . LT . P R SHK 1 ) )  GO  TO  600 
600  NITsNIT+1 

IFIN1T  .GT.  NITMAX)  GO  TO  530 
C»****IfERATION  FOR  SLIPLINE  ANGLE  SOLUTION. 

THETAS--0  .6*1  THETIS  +  THET2SI 

PR  1  *  PRSHK ( EMS1 ,-( THETA  1-THETAS ) ,GAMMA1 i 
PR 2=  PR SHK ( EMS2.-ITHETA2-THETAS)  .GAMMA2) 

PRI)IFF=(PR1-PR2)/((PR1  +  PR2)/2.0I 
1FIABS  (PR01FF)  -  l.OE-6)  530,630,500 
500  IF(pRUIEF)  610,530,520 
510  THET 1 SsT  HET  A S 
GO  TO  603 
520  THET2S=THETAS 
GO  TO  600 
530  NSTOP  »  1 

IFINIT  .GT.  N I T  MAX  1  WRITE  (6,560)  NIT.PROJFF 
560  FORMAT ( /,5X, 33H  **®CUNVERGENCE  ERRUR  IN  SLIP,  I  ,  13,  2H  ,  , 

1  E10.3,  6E1  )  ***  /) 

RETURN 

C 

600  NSTOP  «  3 

WRITE  <  6 , 70  )  I 

700  FORMAT! 15X,6eH  ***SOLUTION  FOR  SLIPLINE  ANGLt  OOESN-T  EXIST*** 
RETURN 
END 
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APPENDIX  A  •  TW(  I  STREAM  AX  I  SYMMETR  I C  RASE  PRESSURE  PRUGRAM 

FUNCTION  PRSHK  (TSA0PP-2I 


FUNCTION  PRSHK! EMSTAR,  DELTA,  GAMMA) 

C 

C*****UBUOUE  SHUCK  FUNCTIUN  (RFFFRENCt  NACA  R-1135) 

C 

C  THIS  FUNCTIUN  CALCULATES  THF  STATIC  PRESSURE  RATIO  ACROSS  AN 

C  OBLIQUE  SHUCK  (WEAK  SOLUTION)  GIVEN  THE  APPROACH  «ACH  STAR  AND 

C  THf  TURNING  ANGLE  (IN  RADIANS). 

C 

C  ♦♦♦VARIABLES*** 

C 

C  EMS1AR  -  APPROACH  MACH  STAR  (M*  *  V/C*). 

C  DELTA  =  TURNING  ANGLE  (IN  RADIANS). 

C  GAMMA  =  RATIO  OF  SPECIFIC  HEATS. 

C  PRSHK  ■=  FINAL  TO  APPROACH  STATIC  PRESSURE  RATIO. 

C 

C 

C** ***EOUAT I  ON  COEFFICIENT  FUNCTIONS. 

CUNSTB  ( EMSOD, DELTA, GAMMA  I  =  -(EMSUD  +  2.0)/EMSQD  - 
1  G  AMMA  * (  S I N  ( DEL  T  A ) **2 1 

CONSTC  ( EMSOU, DELI  A, GAMMA )  =  (?.0*EMS0D  ♦  1  .  O ) / ( E MSOD* *  2 )  + 

1  (((GAMMA  +  1.0)**2)/4.0  +  (GAMMA  -  1  .  D  I / 1 M SOD ) * ( S I N  (DELTA)**?) 
CONST  D  (  EMSOU, DELI  A  )  r  -(CUS  ( l)E  l.T  A  )  *  *  2  )  /  (  E  M  SOD*  *  ?  ) 

EMNSOI)  ( E MS, GAMMA) ■ (2.0/( GAMMA *1.0) ) * ( FH S** 2 ) / ( 1 . 0 
1  -( (GAMMA- 1.0) /(GAMMA+ 1.0) )*(EMS**2) ) 

C 

DIMENSION  Y ( 3 ) 

EM2'  EMNSOI)  (  E'MSTAR, GAMMA) 

C*****SOLUT  ION  111-  CUBIC  EOUATION  EUR  WAVE  ANGLE  SOUARFD. 

A  =  (1. 3/3.0 )*( 3.0*CUNSTC  i EM? , OE LT  A« GAMMA )  - 
1  (CUNSTB  (EM?, DELTA, GAMMA))**?) 

0  ■  ( 1.0/2V.0 )*(2.0*(CUNSTB  ( E M? , DELT A, G AMM A  I ** 3 )  - 

1  9  .0  *  I  CUNSTB  (  EM?  ,  DEL  T  A ,  GAMMA  )  !  *  I  CONSTC  ( t  M2  ,  DE  L  T  A  ,  G  A  MM  A  )  )  + 

2  2  7 .0  *C  UNS  T  0  (EM2, DELTA)) 

COSPHI  =  (  -a/2.0)/SORT(  -(A**3) /27.0) 

IEIABS  (CUSPHI)  -  1.0)  20,20,10 
10  PRSHK  «=  0  .3 
RETURN 
C 

20  PHI  «  (ATAN  ( SORT (1.0  -  COS»HI **2 ) /COSPHI ) 1 
IF  (PHI)  1,2,2 

1  PHI  =  PHI  +  3.  IMS 03 

2  DO  3  1-1,3 
A I  «  I 

C  *  **** Y (I  )  IS  THE  SIN!  SOUARFD  (IE  Till  WAVE  ANGLE. 

3  Y ( I )  =  ?.J*SORT(- A/3.0)*C0S  (PHI/3.0  +  (AI-1.0)*?, 09430 5 )  - 

1  CUNSTB  (EM?, DELTA, GAMMA1/3.0 

C*****THE  RUOTS  UF  THE  CUBIC  EON  WILL  NOW  BE  ARRANGED  IN  ASCENDING 
C  ORDER,  THAT  IS,  Y(l)  LESS  THAN  YI2)  LESS  THAN  Y(3). 

C 

DU  6  1=  1,  ? 

N  if  I  +  1 
DO  5  J«N,3 
IFlYil  )  -  Y  (  J  )  )  5,5,4 
A  SAVE  »  Y ( J  ) 

Y< J)  =  Y  (  1  ) 

Y(I)  ■=  SAVE 
0  CONTINUE 
6  CONTINUE 

c*<,e**THF  ROUT  CORRESPONDING  Tn  THE  WEAK  SOLUTION  IS  Y<?>  AND 
C  THE  ROOT  CORRESPONDING  TO  THE  STRONG  SOLUTION  IS  *(3). 

C  Y(I)  IS  THE  SQUARE  UF  THE  SINE  UF  THE  SHOCK  ANGLE  (SIGMA). 

C 

I  ^  2 

PPSHK  -  (  2.0  *  G  AMMA*  LM2*Y(  I  )  -  (GAMMA  -  1.01  I/(F./mkj  +  1,0) 

'Ri  TURN 
END 
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APPENDIX  A.  TWO  STREAM  AXIS YMM t T R I C  EASE  PRESSURE  PROGRAM 

SUBROUTINE  TEGRAL  (TSABPP-2)  PAGE  A-52 


SUBROUTINE  TEGR ALt PH  I D , C SOD , TRbO , t II J . E I  ID, E I  3 J .  E I  3D )  TEGR 

C  TEGR 

C***»iTHIS  SUBROUTINE  CALCULATES  THE  TURBULENT  JET  MIXING  INTEGRALS.  TEGR 
C  TEGR 

C  ***VARI ABLE S**“  TEGR 

C  TEGR 

C  PHID  =  DISCRIMINATING  STREAMLINE  VELOCITY  RATIO.  TEGR 

C  CSOD  =  FREE-STREAM  CROCCO  NUMBER  SOUARED.  TEGR 

C  TRBO  =  RASE  TO  FREE-STREAM  STAGNATION  TEMPERATURE  RATIO.  TEGR 

C  EI1J  =  MIXING  INTEGRAL  1  FOR  J  STREAMLINE.  TEGR 

C  Elin  =  MIXING  INTEGRAL  I  FOR  D  STREAMLINE.  TEGR 

C  E I  3 J  =  MIXING  INTEGRAL  3  FOR  J  STREAMLINE.  TEGR 

C  E 1 3D  -  MIXING  INTEGRAL  3  FOR  D  STREAMLINE.  TEGR 

C  TEGR 

C  TEGF 

TJM1FI PHI ,CSODf  TRO)  =  PH  I / ( T RO-CSUU* ( PHI ** 2 ) )  TEGR 

TJM2FIPHI fCSQO.TRO)  =  ( P H I *“2 ) / ( TRU-C SOD* ( PH  I *# 2 1  )  TEGR 

TJM3F(PHI,CSOO,TRU)  =  (PHI“TRO)/( TRO-C  SQD*(PHI**2) )  TEGR 

DIMENSION  TRO(  350)  ,  E  I  1  ( '350  )  ,  EI2  (350)  ,EI3<  350  )  TEGR 

COMMON  /ERFVP/  PHK350)  '  TEGR 

C*****THE  ERROR  FUNCTION  VELOCITY  PROFILE,  PHI(I|,  IS  INITIALIZED  IN  TEGR 
C  “BLOCK  DATA*  AND  STORED  IN  LABELED  COMMON  “ERFVP*.  PHl(I)  IS  TEGR 

C  GIVEN  FOR  1=1,350  VALUES  OF  ETA  IN  THE  RANGE  OF  ETA=-3.5  TO  TEGR 

C  E T A  =  3 • 5  IN  INCREMENTS  OF  DETA=0.02.  TEGR 

£$*.-,**  increment  SIZE  AND  INITIAL  VALUES  AT  (ETA  RBI  ARE  SPECIFIED  HERE.  I'EGR 
DETA  =  0.12  _  TEGR 

TRO ( 1 )  =  TRBO  TEGR 

El  1  (  1  )  =  1.3  TEGR 

EI2I1)  =  0 .0  TEGR 

El 3( 1 )  =  3.3  TEGR 

C**““*CALCULATI ON  OF  THE  MIXING  TABLE  BY  THE  TRAPEZOIDAL  RULE.  TEGR 

DO  2  1=1,349  TEGR 

TROtI+1)  =  (TRBO  +  < 1.0-TRB0)*PHI( J+l) )  TEGR 

EIKI  +  1)  =  E 1 1  (  1  I  +  0.5*(TJMiF(PHin+l)tCS0D,TR0(I+in  +  TEGR 

1  TJM1F ( PHI < 1) .CSOD, THEM I )) l*DETA  TEGR 

E  I  2  (  I  +  1  )  =  F  I  2  (  I  )  +  0.5“(TJM2F(PHI(I  +  l),CS00,Tt.  .1+1)1  +  TEGR 

1  TJM2F(PH!(1) , CSOD, TRO ( I ) I ) “DETA  TEGR 

EI3II+1)  =  E I  3  I  I  )  ♦  0.5*(TJM3F(PHI ( 1  +  1) ,CS00,TR0(1+1 ) I  +  TEGR 

1  TJM3FI PHI m ,CSQO,TRO(I ) ! )*DETA  TEGR 

J  =  i+1  TEGR 

IFIPHIIJ)  .LT.  (0.25))  GO  TO  2  TEGR 

IF. ABS< 1.3-1  (El  1 ( J1-EI2  I  J  ))/ (El  II  I  1-EI2I I )  !  )  I „LE.l .0E-04)  GO  TO  3  TEGR 

2  CONTINUE  TEGR 

C“““““DETERMINE  THE  J-  AND  D-STREAMLINF  VACUFS  UF  THE  INTEGRALS.  TEGR 

3  FI1J  =  FI11JJ  -  EI2(J)  TEGR 

C*“***TABLE  SFARCH  AND  INTERPOLATION  FOR  EI3J.  TEGR 

DO  4  1=1, J  TEGR 

IF(EIKI)  .GT.  E  I  1 J )  GO  TO  5  TEGR 

4  C0NT1NUF  TEGR 

5  F I  3 J  =  EI3II-1)  +  ( (PI3I I I-EI3I1-1) )/(El 1 (1 ) -E I  1(1-1 ) )»*  TEGR 

1  (EllJ-Et 1(1-11)  TEGR 

C*““““TABLE  SEARCH  AND  INTERPOLATION  FOR  El  ID,  E I  3D.  TEGR 

DO  6  1=1, J  TEGR 

IF(PHKI)  .GT.  PHID)  GO  TO  7  TEGR 

6  CONTINUE  TEGR 

7  EIID  =  EIKI-1)  +  (  (  Ell  (  1  )-E  II  1 1-1 )  )/(PHI  (  1  l-PHI  ( 1-1  ]  )  S*  TEGR 

1  (PHin-PHI (  I-l  1)  TEGR 

EI3D  =  FI3II-1)  +  ( ( EI3 I  I  I-EI3I I-l) )/(PHI  II 1-PHJ  ( I-l )  )  )=  TEGR 

1  ( PH] O-PHI (I—]))  TEGR 

RETURN  TEGR 

END  TEGR 
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APPENDIX  B 


COMPUTER  PROGRAM  ORGANIZATION  AND 
SUBROUTINE  DESCRIPTION 


The  names  and  brief  functional  descriptions  of  the  subroutines 
used  in  the  base-pressure  program,  TSABPP-2,  are  given  in  this  ap¬ 
pendix.  The  subroutines  are  ordered  on  a  first -call  basis  and  are 
sequenced  relative  to  the  routine  from  which  they  are  called. 

Additional  explanatory  C0MMENTS  regarding  the  make-up  and  opera¬ 
tion  of  this  program  are  contained  in  the  program  listing,  APPEN- 


SEQUENCE 

NUMBER  NAME  FUNCTION 


TSABPP-2  Main  program  in  which  the  various  calcula¬ 

tion  and  iteration  sequences  required  .in 
the  solution  of  the  isoenerpetic  or  noniso- 
energetic  base-pressure  pro!  lem  are  initi¬ 
alized  and  controlled. 


1.0 

IN0UT 

Reads  and  writes  the  input  data  to  TSABPP-2 
and  then  calculates  the  working  input  data 
for  the  remainder  of  the  program. 

1.1.0 

ABTS 

Afterbody  subprogram  which  controls  the  cal¬ 
culation  and  iteration  sequences  for  analyz¬ 
ing  supersonic  flow  over  afterbodies.  Sub¬ 
program  determines  the  local  inviscid  flow 
properties  at  the  afterbody  surface  and  the 
final  II-characteri stic  through  the  afterbody 
terminus . 

1.1.1 

BTCNST 

The  constants  [Cj  ,C2  ,Cg  ]  in  the  afterbody 
profile  equations  are  evaluated  here  for  the 
given  input  data. 

1.1.2 

0UTBT1 

Prints  input  data,  some  output  data,  and  the 
afterbody  output  data  headings. 

1.1.3 

EMSPM 

Solves  the  P.randtl -Meyer  function  for  th< 

Mach  Star  given  a  turning  angle  of  (02-0j  ), 
the  approach  Mach  Star,  and  the  specific  heat 
ratio  y. 
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SEQUENCE 


NUMBER 

NAME 

FUNCTION 

1.1.4 

0UTBT2 

Prints  the  local  values  of  [X ,R ,M ,P/PE ,Cp ] 
along  the  afterbody  surface  and,  finally, 
the  overall  afterbody  drag  coefficient  CD. 

1.1.5 

MCDATA 

Method  of  Characteristics  data  handling  sub¬ 
routine.  This  subroutine  loads,  stores,  or 
shifts  data  in  the  Method  of  Characteristics 
arrays . 

1.1.60 

Method  of  Characteristics  subroutines. 

1.1. 6.1 

FPS 

Field-point  subroutine. 

1.1. 6. 2 

BTBPS 

Boattail  Boundary  Point  Subroutine. 

1.1.7 

BTITER 

Iteration  subroutine  for  determining  the  I- 
characteristic  passing  through  the  afterbody 
terminal  point  (X  ,R ),  Fig.  1. 

2.0 

0UT1M 

Writes  the  headings  and  current  data  used 
for  the  trial  inviscid  flow-field  calcula¬ 
tions  . 

3.0 

ACPBS 

Calculates  the  flow  field  and  the  constant- 
pressure  boundary  for  either  the  internal 
(nozzle)  flow  or  the  external  (freestream) 
flow  by  the  Method  of  Characteristics  for 
irrotational  flow. 

3.1 

0UTPUT 

Writes  the  headings  and  input  data  for1  the 
inviscid  flow-field  calculations. 

3.2 

UFL0C 

Generates  the  Method  of  Char  cteristias 
data  along  the  initial  Il-characteristic 
for  uniform  flow. 

3.3 

CNFL0C 

Generates  the  Method  of  Characteristics 
data  along  the  initial  Il-characteristic 
for  conical-flow  nozzles. 

3.4.0 

PMSBR 

Calculates  the  Method  of  Characteristics 
data  for  centered  Prar.dtl-heyer  expansions. 

3.4.1 

EMSPM 

Solves  the  Frandtl-Meyer  expansion  function 

for  the  value  of  m£  given  the  approach  m * , 
the  turning  angle  (62-61),  and  the  speci¬ 
fic  heat  ratio  y. 
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SEQUENCE 

NUMBlk 


NAME 


FUNCTION 


3.5 

0UTBDY 

Writes  (X,R,0)  data  along  the  constant -pres¬ 
sure  boundary. 

3.6 

MCDATA 

Method  of  Characteristics  data  handling  sub¬ 
routine.  This  subroutine  loads,  stores,  or 
shifts  data  in  the  Method  of  Characteristics 
arrays . 

3.7.0 

Method  of  Characteristics  Subroutines 

3.7.1 

FPS 

Field-point  subroutine. 

3.7.2 

CPBS 

Constant-pressure  boundary  subroutine. 

3.7.3 

APS 

Axis-point  subroutine. 

3.8 

TEST 

Tests  for  terminating  the  inviscid  flow- 

- 

field  calculations. 

4.0 

CR0SS 

Calculates  the  impingement  point  of  the 
"corresponding"  inviscid  streams,  the  mix¬ 
ing  lengths,  and  the  oblique  shock  system. 

4.1 

SLIP 

Calculates  the  slipline  angle  0  for  the 
two  impinging  supersonic  streams. 

4.2 

PRSHK 

Calculates  the  static  pressure  ratio  across 
an  oblique  shock  wave  given  the  approach 

M*,  the  turning  angle  6,  and  the  specific 
heat  ratio  y.  (This  routine  solves  the  cu¬ 
bic  equation  for  (sir  cO2  where  0  is  the 
shock  wave  angle;  with  this  solution  and 
the  input  data,  all  other  oblique  shock 
functions  can  be  found.) 

5 . 0 

.  TJMIX 

Calculates  the  dimensionless  mass  and  en¬ 
ergy  transport  ratios,  B  and  E,  due  to  the 
turbulent  mixing  component. 

5.1 

TEGRAL 

Calculates  the  two-dimensional  turbulent 
mixing  integrals. 

6.0 

ITER 

Controls  the  various  iteration  sequences 

by  first  determining,  if  possible,  the  so¬ 
lution  interval  by  incrementing  the  inde¬ 
pendent  variable.  After  the  solution  inter¬ 
val  has  been  determined,  the  solution  is 
found  by  iteration  using  interpolation  with 
acceleration  of  convergence  by  Wegstein's 
method  [10], 
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SEQUENCE 

NUMBER 


NAME 


FUNCTION 


7.0  ERFVP  BL0CK  DATA.  The  error  function  velocity- 

profile  is  stored  in  this  array  for 
ETA=-3.5  to  ETA=3.5  in  increments  of 
DETA=0.02. 


11C- 


APPENDIX  C 


PROGRAM  ERROR  MESSAGES 


The  informational  error  messages  generated  by  the  TSABPP-2  pro¬ 
gram  and  its  subroutines  are  summarized  here  with  an  explanation  of 
each  error  message.  The  order  and  sequence  numbers  of  the  various 
routines  are  the  same  as  in  APPENDIX  B  of  this  report. 


SEQUENCE 

NUMBER  NAME  MESSAGE/ EXPLANATION 


TSABPP-2  N0.  0F  BASE  PRESS.  1TERATI0NS  EXCEEDED' 

"“"BPRL=X. XXXX  BPR=X. XXXX  BPRR=X.XXXX; 


If  a  base-pressure  solution  is  not  achieved 
within  IBPR.LE. IBPRMX  (currently  IBPRMX=?0), 
the  current  case  calculation  is  terminated 
and  the  next  case  or  configuration  is  consid¬ 
ered.  At  termination,  the  current  values  of 
the  base-pressure  ratio,  BPR  =  PB/PlE  ,  as  well 
as  the  lower  and  upper  bounds  on  the  solution 
value,  BPRL  and  BPRR,  respectively,  are  also 
printed. 

""“MAXIMUM  N0.  0F  BASE  PRESS.  ITERATI 0NS  EXCEEDED1""1 
""“BPRL=X . XXXX  BPR=X. XXXX  BPRR-X.XXXX”"" 

“""PR0BABLE  FL0W  SEPARATI0N  F0R  SPECIFIED  DATA"""""" 


This  situation  is  similar  to  the  preceding 
case;  however,  the  trial  value  for  the  base- 
pressure  ratio,  BPR,  is  greater  than  or  approach¬ 
ing  the  value  corresponding  to  separation  of 
the  internal  or  external  flow.  The  separation- 
pressure  ratio  is  determined  i rom  an  empiri¬ 
cal  expression  [4], 
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SEQUENCE 

NUMBER 


NAME 


MESSAGE/EXPLANATION 


N0.  OF  N0-S0LUTI0N  TRIALS  EXCEEDED51 


No-solution  trial  cases  occur  when 

(i)  there  is  insufficient  data  to  calcu¬ 
late  the  inviscid  boundaries'  impinge¬ 
ment  point, 

(ii)  the  boundaries  do  not  impinge,  and 

(iii)  the  boundaries  impinge,  but  the  slip¬ 
line  solution  does  not  exist. 

In  the  course  of  the  base-pressure  solution 
iteration,  a  case  calculation  is  terminated 
if  a  total  of  N0S0LN.GT.N10SMAX  (currently 
N0SMAX=1O)  no-solution  trials  occur  for  a 
gi-ven  case.  Note  that  error  messages  related 
to  (i),  (ii),  and  (iii)  are  generated  by  the 
appropriate  subroutines;  i.e.,  (i  )  and  (ii) 
from  CR0SS  and  (iii)  from  SLIP. 


1.0 

1N0UT 

None 

1,1.0 

ABTS 

None 

1.1.1 

BTCNST 

None 

1.1.2 

0UTBT1 

None 

1.1.3 

EMSPM 

See  message  foi’  EMSPM  under  C/N  3.4.1 

1.1.4 

0UTBT2 

None 

1.1.5 

MCDATA 

None 

1 . 1 . 6 . 0 

Method  of  Characteristics  subroutines 

1 . 1 . 6 . 1 

FPS 

See  messages  for  FPS  under  S/N  3.7. 

SEQUENCE 

NUMBER 


NAME 


MESSAGE/ EXPLANATION 


1.1- fa.  2  BTBPS  ■:::“C0N'/ERGENCE  ERR0R  IN  -BTBPS",  (NC01>NT,D1  FF)""" 

Convergence  failure  in  iteration  for  M*  along 
the  afterbody  boundary .  Convergence  tc  a  nor¬ 
malized  difference  in  M*  between  successive 
trials  of  .LE.  10  4  was  not  achieved  before 
NC0UNT.GT.NCTMAX  occurred  (currently  NCTMAX=15). 
(NC0UNT,DIFF)  printed  are  the  current  itera¬ 
tion  number  and  normalized  difference  in  M:\ 

::::::ERR0R  IN  “BTBPS"  CALC.:::::: 

If  either  (M:'!  <  1 )  or  (M*  >  )  occurs  dur¬ 

ing  the  iteration  for  M:':  along  the  solid  boundary, 
the  above  message  is  printed  and  a  return 
is  made  to  ABTS. 

1.1.7  BT I  TER  —"MAX  N0.  I TERATI 0NS  EXCEEDED  IN  SBR.  BTITER. 

G0  T0  NEXT  CASE. 

The  I-characteristic  passing  through  the  ter¬ 
minal  point  of  the  afterbody  could  not  be 
determined  within  the  specified  number  of 
iterations  (currently,  lb).  Return  is  made 
to  IN0UT  and  the  next  configuration  is  analyzed. 


2.0 

0UT1M 

None 

3.0 

AC.PBS 

None 

3.1 

0UTPUT 

None 

3.2 

UFL0C 

None 

3.3 

CNFL0C 

None 

3.4.0 

PMSBR 

None 
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SEQUENCE 


NUMBER  NAME  MESSAGE/EXPLANATION 

3.4.1  EMSPM  """ERR0R  IN  -EMSPM-""" 


Message  results  from  the  specification  of 
a  turninp  angle,  which  is  either 

(i)  greater  than  the  turninp  angle  corre¬ 
sponding  to  sonic  flow  after  a  reversi¬ 
ble  compression  or 

(ii)  greater  than  the  maximum  turning  angle 
for  a  reversible  expansion. 

'•"•'CONVERGENCE  ERR0R  IN  EMSPM, (NIT, DIFF0])""" 

Convergence  failure  of  the  iterative  procedure 
used  to  solve  the  Prandtl -Meyer  function  for 
the  Mach  Star  after  the  expansion  (or  compres¬ 
sion).  The  values  of  NIT,  current  number 
of  iterations,  and  D1FF0,  the  normalized  dif¬ 
ference  between  successive  values  of  the  Prandtl- 
Meyer  omega  function,  are  printed.  Currently, 
the  maximum  value  of  NIT  is  specified  as  NITMAX=20. 


3 . S  0UTBDY  None 

3 . b  MCDATA  None 

3.7  FPS  Method  of  Characteristics  subroutines: 

CPBS 

APS  "::::C0NVERGENCE  ERR0R  IN  "FPS", (NC0UNT, DI FF)""” 

"CPBS" 


-APS" 


Convergence  failure  of  the  Method  of  Charac¬ 
ter  ietico  calculations  within  the  specified 
subroutine.  NC0UNT  gives  the  current  itera¬ 
tion  number  (a  maximum  of  fifteen)  and  DIFF, 
the1  current  value  of  the  normalized  differ¬ 
ence  1  unction  ori  which  the  convergence  cri¬ 
terion  is  based. 


SEQUENCE 

NUMBER 


NAME 


MESSAGE/EXPLANATIQN 


":t::£RR0R  IN  "FPS"  CALC  . """ 

"CPBS” 

"APS" 

The  Mach  Star  becomes  less  than  one:  or  a  boundary 
point  calculation  crosses  the  axis.  The  for¬ 
mer  usually  results  from  wave  coalescence  and 
"foldback"  while  the  latter  could  occur  for 
the  external-flow  boundary  calculations  in 
the  vicinity  of  the  axis. 


3.8  TEST  None 

4.0  CR0SS  """"""IMPINGEMENT  0F  THE  INTERNAL  STREAM  0CCURS 

BEF0RE  SEPARATI0N  0F  THE  EXTERNAL  STREAM"""""" 

IMPINGEMENT  0CCURS  AT  X  =  AND  R  = 


IMP i  NGEMENT  0F  THE  EXTERNAL  STREAM  0CCURS 
BEF0RE  SEPARATI0N  0F  THE  INTERNAL  STREAM=:""::"" 
IMPINGEMENT  0CCORS  AT  X  =  AND  R  = 

The  inviscid  internal  and  external  streams 
do  not  impinge  downstream  of  their  separation 
points,  but  rather  one  of  the  streams  would 
.impinge  on  a  solid  boundary  prior  to  the  sepa¬ 
ration  of  the  other  stream.  These  cases  are 
considered  to  be  no-solution  trials. 

""-IMPINGEMENT  D0ES  N0T  0CCUR 
WITHIN  THE  RANGE  0F 
C0NSTANT-PRESSURE  B0UNDARY 
DATA:::;" 

Insufficient  external  or  internal  boundary 
data  are  available  to  determine. an  impinge¬ 
ment  point  between  the  flows.  These  cases  are 
also  considered  to  be  no-solution  trials. 

4.1  SLIP  """C0NVERGENCF.  ERR0R  IN  5L.IP,CnIT,PRU1FK>:"" 

Convergence  to  the  slip.line  solution  was  not 
achieved  within  the  maximum  number  of  itera¬ 
tions  specified  (currently  NITMAX=15).  NIT 
is  the  current  iteration  trial  and  PRDIFF 
is  the  normalized  pressure  ratio  difference 
function. 
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SEQUENCE 

number  name  message/explanation 

“""S0LUTI 0N  F0R  SLIPLINE  ANGLE  D0ESN'T  EXIST”"" 

A  regular  slipline  solution  with  weak  shocks 
does  not  exist  for  the  trial  impingement  data. 
This  case  is  considered  as  a  no-solution  trial. 


4 . 2  PRSHK  None 
5.0  TJMIX  None 
5.1  TEGRAL  None 
6.0  ITER  None 
7 . 0  ERFVP  None 


C3L0CK  DATA) 


ooooooononooon  onooonr.  nrioonorsoooooooonnoo 


APPENDIX  D 


MODIFICATIONS  FOR  OPERATION  OF  TSABPP-2 
ON  AN  IBM  7094  FORTRAN  IV  IBJOB  SYSTEM 


A°P?ND  1  X  O  IS  DIV1DFD  Into  THREE:  PARTS.  they  are  as  FOLLOWS! 

I.  MODIFICATIONS  IN  TsArRR-?  WFOu  I  RED  F  OR  I  DM  7094  OPERATION 

II.  TSAPDP-?  INPUT  DATA  TORMAT  FOR  T  rtt  I  DM  70f/4  VERSION 

III.  CONTROL  CARDS  FOR  OPERATING  TsABO^-2  On  AN  I B«  7094  UNDER  IDJOH 


MODIFICATIONS  IN  TSAtfPP-?  Rt'OUlRE'D  FOR  l  DM  7094  OPERATION 
( SEE  *NOTC*  ON  PAGE  I ?7  ORE  CHANGING  PROGRAM) 


f SI  r  1M - 

C 

4 

s 

NDEFLl  *  0 


FOR  IBM  7094.  WITH  ♦  Aim-FLl  MOTION*  AOnto  T C '  PCnpi'A1  . 

NP1INCH,  PRIItni  .PRIIIL-  ,PniPOI  tNSHAPB  ,NPTSE  ♦  PR1  I  If  . 
NDFFLT 


I  NOPT  =  1,  INPUT  BY  NAMr-LIST  /DAT  AIN/  ONLY.  THE  Dfc  F  1 IL  T 

CARDS  FOLLOWING  T  HF  F  I  H  c  T  CARD SDATAIN  DPT*?  * 

*  3,  INPUT  SPECIFIED  BY  NAMIlIST  /PATAIN/  FOR  L-  ,  ill.  A  T  I  Cl  N 

*  4,  INPUT  SPECIFIED  BY  NAMi-L‘Sl  /  HA  T  A 1  N/  F  UK  CALCULATION 

NDfcfPLT  =  Ot  THF  VARIABLES  AKt-  RESET  TO  TMF  *  PE F  AUL  T  CONE  I  DURA  T  J 1  IN 

AFTER  THt  CASE  (SET  OF  PRESSURE  RATIOS)  IS  CUMpi.MHi, 

*  1,  THt  VAR  I A  HI.  £  5  WILL  NOT  Bt  RESET  AT  UPON  COMPLETION 

OF  THF  CASE. 

NOT F  CHANGING  THF  VALUb  UE  *NEDElT*  WILL  FIRST  AF^fcCV  THt 

CASE-  SUC.C  b  Ft)  T  NG  THt  CASE  IN  WHICH  IT  IS  CHANGED. 

♦♦CARD  1**  ANY  A  I.PHANUM  b  R  I  C  HFAIMNG  IN  COLUMNS  1  TO  HO. 
FOLLOWING  CARDS  CONTAIN  *NAMtUST*  DATA  SPECIFIED  BL-LOW - 


S  DA  TAIN  X  1  I  *  .  R  1  l*tBFTniI--,GCI*.GAMMAI«,FMNlI«tTMni:i»,RFCOMP-  P| 
NSHAPb* ♦ X?t«lR2r».HFT0?F*.X IF- , R lb  =  ,GCF'» GAMMAf* . tMNt  « ,  I NOPT= , 
NPR I NT«  t  N PUNCH* ,KPKESR» , NC ASF* , PR- ,  BkO- , t KM* , NDbF L T * ,  % 

♦♦CARD  1 ♦♦  ANY  ALPHANUMERIC  HEADING  IN  COLUMNS  1  TO  RO. 
FOLLOW  1  Nli  CARDS  CONTAIN  *NAM tL  1ST*  DATA  SPECIFIED  Bbl.OW - 


IF  NSHAPF  *0  I  DEFAULT  VALUb) 

SDATAIN  RlI*,f!MNII«fbMNF*fNCASF*.PK  =  -* .  iNDCFLT^i  S 

IF  NSHAPE---l»2v3  (SPECIFIED  BELOW) 

SDATAIN  Ri  I«  ,tMNl  [■■NSHAPt«  ,Bfc  TD?F.  *  »  X  1 F  *  »  R  IE»  ,  t  M  N  t  *  «  NC  A  S  t  “  i 
PP.*-  , NDFFLT - •  S 

♦♦CARD  0**  DUMMY  CARf>.  CONTENT  IS  IGNORED. 

♦♦CARD  ]**  SDATAIN  IN0PT*2  S 

NOTE  THAT  1  HF  RE  ARE  (7+NCASb)  DAT  A  CARDS  PER  CASf  . 

♦  ♦CARD  0 ♦*  DUMMY  CARD.  CONTENT  1 1>  IGNORED. 

♦♦CARD  1 ♦♦  ANY  ALPHANUMERIC  HEADING  IN  COLUMNS  1  TO  RO. 
FOLLOWING  CARDS  CONTAIN  +  N AM  t  L 1  ST ♦  DATA  SPECIFIED  BELOW - 

SDATAIN  INUPT*3f  F-MN1  I  =  ,  &  ETO 1 1  -  ,  R  1  I*tNCASF=. PR*-, GAMMA F-, 
NDFblT=,  % 

♦  ♦CARD  0  *♦  DUMMY  CARD.  CONTENT  IS  IGNORED. 


♦♦CARD  \**  ANY  ALPHANUMERIC  HEADING  IN  COLUMNS  1  TO  BO. 
FOLLOWING  CAROS  CONTAIN  ♦NAMELIST*  DATA  SPECIFIED  BELOW - 

SDATAIN  lN(lPT-4tNCASL«,  FMNE*,N  SHAPE*,  BETn?E=,R?E*»XlE*,RlF«, 

PR  *  -  , - , m . „ ,gamhae*,ndeelt* ,  s 

4  NPi  INC  H  ,  PR(]  E  n  1  f  PRO  IE  ,POI  FOI  ,  NSHAPE  ,NPTSE,PRiIlE, 

4  NDFFLT 

NAMELIST  /DATA  IN/  X H  , R 1  I  , BE T D II  t GC I , GAMMA  I  , FMN 1 l , NS HAP E , X? F , H 2 F , 

1  BFTn?E  ,  X  lfc  #  M  |E  *GCF  ,f,AMMAE  f  f-MNF  ,  TRUE  I  ,RFCOMP» 

2  INOPT,NPR  I  NT  ,NCASF  *NPUN(.H,  KPRL  :R  ,  PR,  HRD,  f  RO, 

3  NDEFLT 


^♦♦♦♦SKJP  ♦IlFFAULT  CONFIGURATION*  DEFINITION  IE  Nnt  F  L  T  *  I  . 

IF  (NDFFLT .NE.O)  GO  TO  9 
C*****REAn  HEAD  1  NC*  CARD. 

9  READ  (4,4R)  A 

^♦♦♦♦READ  INPUT  DATA  BY  NAMILIST  /OAT  A 1 N /  . 

READ  (  *>*  DETAIN) 


CUNT  PUL 


MAID  '-4 

t-i. 

WAJN  4M) 
MAIN  44  4 
MAIN  '.4‘. 


INOU  ??0 
INO'I  ?S0 
INOU  ?40 
1N(IU  ’H0 
INOU  ■»*.  1 
INOU  <  *.2 
I  Mill  I  *** 
INOU  3S4 
INOU  *44 
INOU 

INflU  7  4V 

INOU  7^4 
INOU  747 
IN01J  740 
INOU  770 
INOU  V  M{) 
INOU  HSO 
INOU  R*>4 
INOU  M40 
INOU  fl  70 
INOU  HHO 
INOU  non 
INOU  900 
INOU  910 
INOU  9  ?  0 
INOU  944 
INOU  940 
JNDU1 l 40 
INDII1  1  9? 
INDU1 1 94 
JNDlJl  194 
I NDU1  ]  9  H 
INDU12D0 
J  NDl  1 1  ?  1  0 
INOU1742 
I  NUU  1  ?  *>4 
INDU1 ?S4 
indui/sh 
INDU1740 
I  NOD  1 7  7  J 
I  Nfllll  4?0 
5  Nil'll 
I  NO'  114  40 
I  NDi  1 1  440 
I  NDl  J]  4  70 
I  N 1 J 1 1 1  4  7  4 
I  NDU1 493 
INDUI 497 
I  MIDI H10 
INMUI  HVj 
INDUI H40 
INDUI H4S 
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TSA0PP-H  INPUT  DATA  FORMAT  FOR  THE  I RM  7094  VfZ»SION 


C*****CnMPLFTF  INPUT  DATA  FOR  DEFAULT  OPTION  (JN0PT=1). 

C 

c  **CAftD  1**  ANY  ALPHANUMERIC  HEADING  IN  COLUMNS  1  TO  80. 

C  FOLLOWING  CAROS  CONTAIN  ♦NAMELIST*  DATA  SPCCIFIED  BELOW - 

c 

c  * DA  TAIN  X 1  I  =  «  R 1  I « , B F TO  1 1  =  * GC I  *  * G AMM A  I = , F MN1 I  * . TR OE I  * , a ECOMP= f 

C  N$HA PF * .X2E  =  , R?e*»RFTn?E= , X 1E=»  R1F=,GC F  =  , GAMMA E*. EMNE*, INOPT= , 

c  NPRlNT=tNPUNCHsfKPRESR*»NCASE=»PR=»BR0=fFRn**ND6FLT*f  1 

C 

C  IT  IS  NOT  NECESSARY  TO  SPFCIPY  ALL  of  THF  VARIABLES  SINCE  ALL  OR 

C  PART  OF  THE  DEFAULT  CONFIGURATION  CAN  0F  USED.  HOWEVER.  THE 

C  FOLLOWING  MINIMUM  DATA  MUST  BE  SPECIFIED  FOR  EACH  CONFIGURATION 

C  (SEE  TABLE  I*  RD-TR-69-14  ) . 

C 

C  **C AR D  1**  ANY  ALPHANUMERIC  HEADING  IN  COLUMNS  1  10  00. 

C  FOLLOWING  CAROS  CONTAIN  ♦NAMtL  1ST*  OATA  SPECIFIED  BELOW - 

C 

C  IF  NSHAPEsO  (DEFAULT  VALUF) 

C  SOATAIN  R1I*,EMN1  I«-,EMNE*.NCASE*,PR  =  -.-9  .  ..  ♦  NDEFLT*.  $ 

c 

C  IF  NSHAPE**  1  *  2  *  3  (SPECIFIED  BELOW! 

C  SOATAIN  RlI**EMNlI^,NSHAPE*.BeT02E*,XlFutRiE«,GMNE»fNCASE*, 

C  PR=- »-* ... . N06FLT* .  $ 

C 

C*****1NPUT  DATA  AND  FORMATS  FOR  OPTION  ■£  (  INOP T * 2 )  • 

c 


c 

♦  ♦CARD  0  *♦ 

DUMMY  CARD-  CONTENT  IS  IGNORED. 

c 

♦♦CARO  l** 

SDATAIN  I  NO  PT  =2  S 

c 

♦♦CARD  ?** 

ANY  ALPHANUMERIC  HE  AO  I NG  IN  COLUMNS  1 

TO  80. 

c 

♦♦CARD  3** 

XII,  R1I,  BET01I,  GC I ,  GAMMA!,  EMN1I. 

c 

NSHAPE 

(6F10.6,  ID 

c 

IF  NSHAPE  « 

0,  CARD  NO.  4  IS-- 

c 

♦♦CARD  4** 

X1E,  R1E,  GCF,  GAMMAE,  EMNP 

I 5F 1 0. 6 ) 

c 

c 

IF  NSHAPE  * 

1,2.  OR  3,  CARIl  NO.  4  IS-- 

c 

♦♦CARO  4** 

X2C,  R2E,  BET02E,  X1E,  R 1 E t  GCE, 

c 

GAMMAF,  emne 

( 8F10.6I 

c 

r 

♦  ♦CARO  ?♦♦ 

TROEI,  RECOMP 

c 

♦♦CARO  6 ♦♦ 

NPRINT,  NCASS,  NPUNCH,  KPRESR 

<12,13,2111 

c 

IF  KPRESR  « 

0,  CARO  NO.  7  AND  FOLLOWING  ARE - 

c 

♦♦CARD  7  AND 

FOI  LOWING**  PR1IE,  BLDRO,  ENGRO 

<  3F10.6) 

c 

c 

IF  KPRESR  * 

1,  CARO  NO.  7  AND  FOLLOWING  ARE — 

c 

♦♦CARD  7  AND 

FOLLOWING**  PRO  I E ,  BLDRO,  ENGRO 

I 3F10.6) 

c 

C  NOTF  THAT  THERF  ARE  (7+NCASE)  DATA  CARDS  PER  CASE. 

C 

C  *****  j  NPUT  FDR  INTFRNAL-FLOW  CONS T ANT-PR E SS U« F  ROUND AR I F  S  (IN0PT=3) 

r 

L  ♦♦CARD  1*4  ANY  ALPHANUMERIC  heading  IN  COLUMNS  1  TO  80. 

C  FOLLOWING  CARDS  CONTAIN  ♦NAM  EL  1  ST  *  DATA  SPECIFIED  BELOW - 

C 

C  TO AT  AIN  IN0PT=3f F*N 1 1  * , fl ETH II  * , R 1 1 « , N C A SE ' . P «*“*“» •• • . GAMMA E=, 

C  N  D  E  E  L  T  =  ?  * 

C 

r *****  INPUT  FOR  EXTFRNAL-FLnw  AFTERBODY  AND/OR  CONSTANT-PRESSURE 
C  BOUNDARIES  (IN0PT*4) 

C 

C  **C  MO  1**  ANY  ALPHANUMERIC  HE  An  JNG  IN  COLUMNS  1  TO  80. 

c  following  cards  Contain  »namel i st*  nATA  specified  below — 
c 

c  5-OAT  A  in  INxOPT=4,  NCASE=,r-MNE=,N5HAPE«.Pf:TD2E*,R2E*.XlE^.R  1E«, 

C  .  .♦,GAMMAE  =  ,Nr»EFLT«,  S 


INOU  740 
INOU  750 
INOU  755 
INOU  756 
INOU  757 
INOU  760 
INOIJ  770 
INOU  700 
INOU  790 
INOU  800 
INOU  010 
INOU  870 
INOU  830 
INOU  840 
INOU  850 
INOU  855 
INOU  860 
INOU  870 
INOU  880 
INOU  890 
INOU  900 
INOU  910 
INOU  920 
INOU  930 
INOU  940 
INOU  950 
INOU  955 
INCH)  960 
INOU  9^0 
INOU  980 
INOU  990 
IN0U1000 
IN0UI010 
IN0U1020 
IN0U1030 
JNOU1040 
IN0U1050 
INOU 1060 
I NOU 1070 
INOU l 080 
I NOU 1 090 
IN0U1 100 
I NOU 1 1 1 0 
INOUl 120 
IN0U1 1  30 
INOUl 140 
INOUl 1 50 
INOUl 160 
I NOU 1 170 
INOUl 1 80 
I  N0IJ1  1  90 
INOUl 194 
INOUl 1 96 
INOUl 198 
I  K'Oi  1 1200 
1  NOIJ 1210 
I N0U1 ?70 
I NOU 1230 
INOUl 240 
I NOU 1250 
I  NOIJ  12  64 
INOUl 256 
1  N0IJ1  ?5R 
INOUl ?60 
]  Nni»i  770 
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CONTROL  CAROS  FOR  Of>r  PAT  I NG  TSA0PP-2  ON  AN  IBM  709a  UNDER  I  BuOB  CONTROL 


$10 

$ jobop 

SIBFTC 
S 1 ftFTC 
SIRFTC 
SIBFTC 
SIBFTC 
SIBFTC 
SIBFTC 
SIRFTC 
SIBFTC 
SI RFTC 
SIRFTC 
SIRFTC 
SIBFTC 
SIBFTC 
SIRFTC 
tl RFTC 
SIBFTC 
SIBFTC 
SIBFTC 
SIBFTC 
SIBFTC 
SIBFTC 
SIBFTC 
SIBFTC 
SIBFTC 
SIBFTC 
SIBFTC 
SIBFTC 
SIBFTC 


I  B  JOB  SP  RUFLL  .BASF  '*RF  SSURt  PROGRAM 

MAP» OLOG I C ♦ ALT  10 

MAIN 

INfMJTX 

nuTIMX 

ACPBSX 

CROSSX 

TJMIXX 

OUT?MX 

ITFRX 

ABTSX 

RTCNSX 

flT  KT  IX 

RTBPSX 

0TBT2X 

RTITFX 

IIFCOCX 

cnflox 

PMSBRX 

FMSPMX 

nUTBYX 

MCI1ATX 

FPSX 

APS  X 

CPBSX 

niJTPTX 

TFSTX 
SLi  PX 
PRSHKX 
TEGRl.X 
RIOATA 


SOATA 


APPENDIX  E 


MODIFICATION  OF  TSABPP-2  TO  SIMPLIFY 


INPUT  FOR  PARAMETRIC  STUDIES 


THE  N3EFLT  OPTION  PERMITS  SIMPLIFIED  DATA  INPUT  IN  PARAMETRIC  VARIATION  STUDIES. 
I  •  E  •  *  WHEN  A  i_  AR6E  NUMBER  OP  CASES  ARE  RUN  WITH  ONLY  ONE  (>©  YwO  PARAMETERS 
CHANGED  IN  I  ACH  CASE*  THIS  OPTION  CAN  ONLY  BE  USED  WITH  |NPUT  OPTIONS  1.3.  AND  A 

( inopTsj  o,  or  4).  ro  use  the  option,  the  c  ados  listed  below  must  be  added 
TO  TSA3»P-2. 

IN  THE  **|RST  CASE  OF  THE  SERIES*  SE  T  NDEFlT*  1  AND  DEFINE  THE  CONFIGURATION*  <  THE 
DEFAULT  CONFIGURATION  IS  AVAILABLE  AT  THIS  PO|NT>*  IN  EACH  SUCCEEDING  CASE* 

■ONLY  PARAMETERS  WHICH  differ  From  the  PREVIOUS  CASE  NEED  TO  BE  SPECIFIED  IN  THE 
INPUT  r OR  THAT  CASE.  IN  oTmeW  WORDS.  WITH  NL'-ErLT"l»  THE  INPUT  PARAMETERS  FOR 
each  CA',E  are  not  Rf'SET  TQ  THE  V^LUE^  SPEC  I  r-  1  rp  ev  THE  D>  FAULT  CONFIGURATION* 

C  Sf  E  PAGE"  26.  30  and  31  ^OR  THE  DEFAULT  CONFIGURATION  WHEN  lNOPTxi.3,  OR  A, 
RESPECTIVELY)  NORMAL  OPERATION  OF  ThE  PROGRAM  CAN  BE  RESUMED  BY  SPECIFYING 
SCEFLTsO  IN  Thf  last  CASE  OF  THr  PARAMETRIC  VARIATION.  WHf  N  nDFFLT.O*  ThE  INPUT 
PARAMEItRS  FOR  EACH  CASE  ARr  RS  SET  T  J  THE  VALUTS  SPECIFIED  IN  THr  DEFAULT 
rON^ IGURAf  I  ON. 


A  SAMPLE  RUN  SF  T  FOR  THE  ]  7094  IS  GIVEN  BELOW* 


P ARAMETR I C 

VAR  I  AT  I  ON 

IN  EMNE 

FEBRUARY 

1970 

EMNE  *  3. B 

SDATA i N 

kprf:>r«o  • 

NDEFlTT*  1  » 

Rll*C.6.  EMN1 

I  *=?*S. 

EMNE*3.6*  1  NOP  T * 

1  •  NCASE ’7* 

<  1  )  *•  0  •  5  < 

,  OQ I  ?  )  a  1  «  d 

«  PR'31-4 

.0.  PRI4)*6.0. 

PRC  5) 

=©*o.  p» <6>*io*o* 

PR ( 7 ) * \v *  0  * 

n>  aRamETR  1  C 

ija T  A  1 N 

V  AR I  ATI  ON 

C  y»N^  *4.0 

IN  EMNE 

* 

FEBRUARY 

1970 

emne*<**  o 

P  ARoVr  TQ|  C: 
*DATA 1 N 

VAR  T AT  I  ON 
EmnE-5.0 

IN  E MNE 

A 

FEHR'JftQY 

1  970 

EmnE“5.0 

P  AR  A  Mr TW I C 

SCAT A  1 N 

VARIATION 

E  M NE  *7.0 

IN  EMNE 

s 

FfODyADV 

1970 

EmnE*7.0 

t 

MODIFICATIONS  IN  TSABPP-?  RF  UU I  RE  D  TO  ADD  ThE  NDETLT  OPTION 
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